Frage zu FormCreate

[Die Muhkuh]

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    [...]
  private
    FFirstShow: Boolean;
  end;

implementation

procedure TForm1.Create(Sender: TObject);
begin
  FFirstShow := true;
end;

procedure TForm1.Activate(Sender: TObject);
begin
  if (FFirstShow) then
  begin
    ShowMessage('Hallo!');
    FFirstShow := false;
  end;
end;

Btw. stimme ich Raven zu, dass das mit dem Marker die eleganteste Lösung ist.