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