Klärt mich mal bitte auf was genau der Unterschied ist, bin mir da nicht sicher ob ich was in OnActivate oder in OnCreate meines Formulares reincoden soll .. thx

wieder den focus bekommen und kreieren

OnCreate wird beim Erstellen des Forms aufgerufen, OnActivate jedes Mal sobald es den Focus erhält (AFAIK, ich kann mich aber auch täuschen)

Greetz
alcaeus

[edit]Zu langsam...[/edit]

Wie die Bezeichnungen schon sagen: OnCreate = beim Create, also im Constructor und somit nur einmal. OnActivate eben beim aktivieren und kanns somit mehr als einmal aufgerufen werden

Leute, ihr seid zu schnell für diese Welt .. =) rasend schnelle Antworten hier im Forum.. big up!! .. danke habs gecheckt...

aber .. ehem .. da wir schon mal gerade dabei sind eine Folgefrage:

Warum funktioniert die close-anweisung darin nicht?

markieren

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
    if not fileexists('main.exe')
 then showmessage('Programm muss sich im Hauptverzeichnis befinden');
 close;
end;

Close schließt das Form, welches zum Zeitpunkt von Create noch nicht existiert. Löse es über einen Timer, der in der OnShow eingeschaltet wird.

Greetz
alcaeus

stell dir vor das form create initialisiert nur

du kannst auch ein Application.Terminate machen, dann schliests sich das programm auch (ich denke, das is das was du willst, oder?)

Zitat von alcaeus:

Löse es über einen Timer, der in der OnShow eingeschaltet wird.

hmm.. hab nen timer noch nie in ne procedure direkt eingebunden ... würdest du mal bitte korrigieren oder vervollständigen:

markieren

Code:

procedure TForm1.FormCreate(Sender: TObject);
begin
    if not fileexists('main.exe')
 then showmessage('Programm muss sich im Hauptverzeichnis befinden');

 form1.OnShow.timer1.Interval[1000]  // <--- wie jetzt hier mit close??
end;

Zitat von phXql:

du kannst auch ein Application.Terminate machen,

jo will ich ... hab aber auch noch nie damit gearbeitet... muss ich dann application.terminate('main.exe') eingeben??

-edit- lol nur application.terminate ist ausreichend stimmts ?? =) -edit-