Eigenschaften damit ein Formular angezeigt wird...

[PhilCore]

Hallo erstmal,

nachdem ich am 26.02.2010 schon einen Thread zu diesem Thema gestartet habe, versuche ich es mal auf eine andere Art.

Kennt jemand alle Eigenschaften einer TForm (sichtbare und unsichtbare), die die Sichtbarkeit eines Formulars steuern.

Mein Problem habe ich in diesem Thread Hide (Unterformular) im Hintergrund <> hide geschildert.

Ich habe mittlerweile alles versucht. Sogar die GWL_STYLE auslesen mittels GetWindowLong und dann Set....,
ShowWindow, SendMessage, Perform, WM_SETREDRAW setzen und Neuzeichnen unterdrücken, und und und ....

Mir gehen langsam die Ideen aus. Ich halte das für einen groben Bug in der VCL (was zu beweisen wäre).

[samso]

Ich hätte da einen Workaround, der nicht wirklich perfekt ist, aber vielleicht ausreicht:

Zunächst braucht man eine zusätzlich procedure

Delphi-Quellcode:

procedure TForm1.DoRestore(Sender: TObject);
begin
  if IsWindowVisible(Form2.Handle) and not Form2.Visible
  then
    ShowWindow(Form2.Handle, SW_HIDE);
end;

Diese wird dann an einer geeigneten Stelle mit dem Application.OnRestore-Eregniss verbunden. Z.B. so:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnRestore := DoRestore;
end;

Ein bißchen drumherum braucht man auch noch - wenn z.B. Form2 nicht mehr existiert. Aber das Prinzip ist, glaube ich erkennbar. Wenn ich mich richtig erinnere, ist übrigens ab Delphi 2007 alles anders - zumindest wenn "Application.MainFormOnTaskBar := True;" gesetzt ist.

[PhilCore]

Hallo samso,

ich habe Deinen Tip mal verfolgt und getestet und es scheint endlich zu funktionieren. Ich werde das nochmal von einem Arbeitskollegen in die reale Anwendung einbauen lassen und dann schauen wir mal. Im Beispiel hat es geklappt.

Auf meinem Rechner habe ich auch noch ein Delphi2009 Enterprise laufen und bei richtiger Verwendung (lt. Hilfe) komme ich leider um Deinen ersten Vorschlag auch nicht drumherum. Scheint also nicht alles anders zu sein.

Vielen Dank, ich dachte schon ich bekomme gar keine Lösung mehr. Das erspart uns einen immensen Aufwand (wenn es auch im realen Einsatz Bestand hat).

[samso]

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.

[PhilCore]

Ich werde diesen Gedanken nochmal verfolgen und ggf. auch Rückmeldung geben, wie sich die Änderungen in unserem Produkt verhalten, denn eins
kann ich mit 95%iger Gewißheit sagen: Wenn so ein Bug auftreten kann, dann garantiert bei uns.