Eine Funktion automatisch bei Programmstart starten lassen?

[Ultimator]

Naja, man könnte ja eine Boolesche Variable ins OnShow-Ereignis einbauen, und diese beim ersten ausführen der Prozedur auf true stellen, etwa so:

Delphi-Quellcode:

procedure TDeineForm.FormShow(Sender: TObject);
var Ausgefuehrt: boolean;
begin
  if ausgefuehrt = false then
  begin
    //Deine Anweisungen
    Ausgefuehrt := true;
  end
  else
    ShowMessage('Deine Anweisungen wurden bereits ausgeführt.');
end;

[Aenogym]

Zitat:

Zitat von Tyrael Y.

Zitat:

...das ganze nicht bei OnCreate sondern bei OnShow des Formulars reinzupacken - dann bist du auf der sicheren seite..

Vorsicht !!!!


OnShow wird nicht nur einmal ausgelöst.

Wenn du den Fokus auf ein anderes Fenster setzt und dann auf dein Fenster zurückspringst wird
OnShow wieder ausgelöst, deshalb vorsicht mit OnShow.
Man sollte genau gucken, was man vor hat und je nach dem das Ereignis auswählen.


mfg

das ist nicht ganz richtig. wenn ich ein anderes fenster aktiviere und dann wieder zu meiner anwendung zurückspringe, dann wird OnActivate ausgelöst. wenn ich mein fenster allerdings per [oh]TForm.Close;[/oh] schließe, es per [oh]TForm.Hide;[/oh] verstecke oder die eigenschaft TForm.Visible auf False stelle, dann wird OnShow beim nächsten anzeigen wieder ausgelöst.

demnach wäre es die beste methode, den gewünschten code unmittelbar vor Application.Run; in der Projektdatei auszuführen.

Aenogym

[alcaeus]

Zitat:

Zitat von Ultimator

Naja, man könnte ja eine Boolesche Variable ins OnShow-Ereignis einbauen, und diese beim ersten ausführen der Prozedur auf true stellen, etwa so:

Delphi-Quellcode:

procedure TDeineForm.FormShow(Sender: TObject);
var Ausgefuehrt: boolean;
begin
  if ausgefuehrt = false then
  begin
    //Deine Anweisungen
    Ausgefuehrt := true;
  end
  else
    ShowMessage('Deine Anweisungen wurden bereits ausgeführt.');
end;

Da liegst du falsch, denn die Variable ist lokal und wird bei jedem Aufruf von OnShow neu "erstellt". Du bräuchtest eine Klassenvariable dafür.

Greetz
alcaeus