Ich bin zwar der Meinung es schon mal anders gemacht zu haben, aber so funzt es auch:
Delphi-Quellcode:
procedure TForm2.FormCreate(Sender: TObject);
begin
bFirstActivate := False;
end;
procedure TForm2.FormActivate(Sender: TObject);
begin
if not bFirstActivate
then
begin
ShowWindow(
Handle, SW_HIDE);
ShowWindow(
Handle, SW_SHOWMAXIMIZED);
bFirstActivate := True;
end;
end;