Datei bei Programmstart laden, nachdem form sichtbar ist.

[hoika]

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