versuch es einmal hiermit:
Delphi-Quellcode:
procedure ShowForm(Form: TForm);
begin
if Assigned(Form) then
begin
ShowWindow(Form.Handle, SW_SHOWNORMAL);
Form.Visible := True;
Form.BringToFront;
end;
end;
procedure HideForm(Form: TForm);
begin
if Assigned(Form) then
begin
Form.Visible := False;
ShowWindow(Form.Handle, SW_HIDE);
end;
end;
Beim Show als letztes einen Timer starten (250ms) und ShowForm(Self) oder BringAppToFront ausführen, oft ist es nur ein Zeitproblem.
Irgendwie muss es ja gehen, oder?