Hallo,
Delphi-Quellcode:
FormCreate
bFirstInForm:= True;
// form-variable setzen
FormActivate
if bFirstInForm
then
begin
bFirstInForm:= False;
if not LoadStartup
then PostMessage(
Handle, WM_CLOSE, 0, 0);
end;
function TForm1.LoadStartup: Boolean;
begin
Result:= True;
auf False setzen zum Form beenden während des Starts
end;
Idealerweise packt man so ne Funktionalität
in ein Basisform und leitet die anderen Forsm davon ab,
LoadStartup wäre dann virtual;
Heiko