Info Fenster vor dem Startvom Tool?

[Freeman]

Ich möchte gerne das der user erst ein info Fenster erhält wo er auf ok klicken muss bevor sich das tool öffnet.

Wie geht das genau....am besten den Code :-))))

danke Freeman

[Frank Kneffel]

Eine einfache Lösung.<br>
In deiner dpr Datei:<br>
...<br>
Application.Initialize;<br>
Application.CreateForm(TMainForm, MainForm);<br>
Application.CreateForm(TInfoForm, InfoForm);<br>
Application.ShowMainForm:=False;<br>
infoform.showmodal;<br>
if InfoForm.modalresult=mrok then<br>
begin<br>
Application.ShowMainForm:=true;<br>
application.run;<br>
end;<br&gt

[Freeman]

und wie schreibe ich einen text da rein

[Frank Kneffel]

Worein ?<br>
In die Dpr Datei, die kannst du einfach über Ansicht Units auswählen.<br>
Oder meinst Du in das Infofenster. Das ganst Du ganz normal bearbeiten. Ich bin hier infach mal davon ausgegangen, daß Du ein Fenster hast, daß Infoform heiß

[Freeman]

hat nich funktioniert....habe deine code reinkopiert aber nichts passier

[Frank Kneffel]

Zeig doch mal den Code Deiner Dpr Datei hie

[Freeman]

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin
Application.Initialize;
Application.Title := 'Ultrapromo v1.0 © Copyright 2001 M.Schmidt';
Application.CreateForm(TForm1, Form1);
Application.Run;
end

[Frank Kneffel]

program Project1;
Änder das mal so ab
<pre>
uses Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin
Application.Initialize;
Application.Title := 'Ultrapromo v1.0 © Copyright 2001 M.Schmidt'; Application.CreateForm(TForm1, Form1);
Application.ShowMainForm:=False;//Damit Form 1 nicht sichtbar ist
if application.messagebox('Ultrapromo v1.0 © Copyright 2001 M.Schmidt','Bitte drücken Sie auf ok um das Programm zu starten',
MB_OKCANCEL+MB_ICONEXCLAMATION)=IDOK then
begin

Application.ShowMainForm:=True;//Damit Form 1 sichtbar ist
Application.Run;
end;
end.
</pre&gt

[Freeman]

das so in die datei project1.~dpr reinkopieren

[Freeman]

MB_OKCANCEL+MB_ICONEXCLAMATION)=IDOK then

DA ZEIGT ER EINEN FEHLER A

[Frank Kneffel]

In die project1.dpr datei. Die *.~dpr wird von Delphi als Sicherheitskopie angeleg

[Frank Kneffel]

Stimmt, Du mußt noch winprocs in die Uses mit aufnehmen. das ganze sieht dann so aus:
<br>
<pre>
program Project1;

uses Forms,
winprocs,
Unit1 in 'Unit1.pas' {Form1};
{$R *.RES}
begin
Application.Initialize;
Application.Title := 'Ultrapromo v1.0 © Copyright 2001 M.Schmidt'; Application.CreateForm(TForm1, Form1);
Application.ShowMainForm:=False;//Damit Form 1 nicht sichtbar ist
if application.messagebox('Ultrapromo v1.0 © Copyright 2001 M.Schmidt','Bitte drücken Sie auf ok um das Programm zu starten',
MB_OKCANCEL+MB_ICONEXCLAMATION)=IDOK then
begin
Application.ShowMainForm:=True;//Damit Form 1 sichtbar ist
Application.Run;
end;
end.
</pre&gt

[Freeman]

DANKE DAS KLAPPT SUPE