Einzelnen Beitrag anzeigen

samso

Registriert seit: 29. Mär 2009
439 Beiträge
 
#4

Re: Eigenschaften damit ein Formular angezeigt wird...

  Alt 15. Mär 2010, 08:56
Statt der ersten Lösung, ist besser diesen Fehler in den betroffenen Formularen zu überdecken. Dazu hätte ich den folgenden Vorschlag.
Delphi-Quellcode:
  TForm2 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    procedure WMShowWindow(var Message: TWMShowWindow); message WM_SHOWWINDOW;
  public
  end;

....

procedure TForm2.WMShowWindow(var Message: TWMShowWindow);
begin
  inherited;
  if (Message.Status = SW_PARENTOPENING) and not Visible then
    ShowWindow(Handle, SW_HIDE);
end;
Bei beiden Workarounds ist allerdings die unschöne Nebenerscheinung, dass die Formulare immer kurz auf dem Bildschirm erscheinen, um dann im nächsten Schritt unsichtbar zu werden. Um diese Erscheinung zu beseitigen, muss das Übel an der Wurzel gepackt werden. Wer es sich zutraut und mag kann diesen Bug (der anscheinend mindestens seit Delphi 6 existiert und auch noch in Delphi 2010 vorhanden ist) auch in der Forms.pas beseitigen. Mein Vorschlag dazu:
Statt
Delphi-Quellcode:
procedure TCustomForm.WMShowWindow(var Message: TWMShowWindow);
....
SW_PARENTOPENING:
  if FShowAction <> saIgnore then
  begin
    ShowWindow(Handle, ShowCommands[FShowAction]);
....
Nun neu
Delphi-Quellcode:
procedure TCustomForm.WMShowWindow(var Message: TWMShowWindow);
....
SW_PARENTOPENING:
  if FShowAction <> saIgnore then
  begin
    if Visible then
      ShowWindow(Handle, ShowCommands[FShowAction]);
....
Dies würde dann die Visible-Eigenschaft synchron halten. Selbstverständlich unter Ausschluss jeglicher Haftung!
Ich habe diese Änderung mit verschieden Kombinationen getestet:
  • Application.MainFormOnTaskBar := True;
  • Application.MainFormOnTaskBar := False;
  • Form2 minimiert
  • Form2 maximiert
  • Anwendung mit dem ShowDesktop-Button aktivieren/deaktvieren
Weitere Tests sind mir noch nicht eingefallen.
  Mit Zitat antworten Zitat