MessageDialog mit Desktop als Parent

[bitsetter]

Hi,

bei mir geht es wenn ich den Code abändere:

Delphi-Quellcode:

Function MessageDialog(Const Msg : String; DlgType : TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; ADesktopParent : Boolean; AParent : TWinControl): Integer;
Begin
  With CreateMessageDialog(Msg, DlgType, Buttons, ADesktopParent, AParent) Do
    Try
      HelpContext := 0;
      HelpFile    := '';
      Position    := poScreenCenter;
      If ( fDesktopParent ) Then//<-- wenn hier der Code steht geht es bei mir
        SetWindowPos(Handle, HWND_TOPMOST, Left, Top, Width, Height, SWP_NOSIZE or SWP_NOMOVE)
      Else
        SetWindowPos(Handle, HWND_NOTOPMOST, Left, Top, Width, Height, SWP_NOSIZE or SWP_NOMOVE);

      SetWindowLong(Handle, GWL_HWNDPARENT, 0);
      SetWindowLong(Handle, GWL_EXSTYLE, GetWindowLong(Handle, GWL_EXSTYLE) Or WS_EX_TOPMOST And Not WS_EX_APPWINDOW);

      Result := ShowModal;
...

Das kommt weil bei mir in der Procedere Procedure TMessageForm.SetDesktopParent(AValue: Boolean); komischerweise vorher ein anderes Handle war.