Einzelnen Beitrag anzeigen

Benutzerbild von Motzi
Motzi

Registriert seit: 6. Aug 2002
Ort: Wien
598 Beiträge
 
Delphi XE2 Professional
 
#22
  Alt 5. Mär 2003, 14:35
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;
Manuel Pöter
  Mit Zitat antworten Zitat