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.