MessageDialog mit Desktop als Parent

[luckystar85]

Ich habe ein Programm geschrieben, welches ein anderes Programm steuern und überwachen soll. Da das zu überwachende Programm den Desktop als Parent bekommt und immer über alles liegt, muss mein Programm auch den Desktop als Parent bekommen. Das funktioniert soweit auch super. Nur möchte ich dem Benutzer auch Hinweise geben, wenn er was falsch gemacht hat. Dazu verwende ich den MessageDlg. Da dieser nicht automatisch den Desktop als Parent bekommt, habe ich mir den MessageDlg von Delphi kopiert in meine eigene Unit eingefügt (im Anhang). Ich habe dort eine neue Eigenschaft definiert und in dessen Abhängigkeit setze ich den Desktop als Parent oder nicht. Ich habe genau den gleichen Quelltext in meiner MainForm drinne und da funktioniert es, nur nicht im MessageDialog. Da beide von TForm sind, sollte es doch das gleiche sein.
Sehr ihr irgendwo vielleicht einen dummen Fehler von mir, der das verhindert?

[dajuhsa]

wer soll sich das antun, diesen "schön gestalteten" text zu lesen?

[luckystar85]

Zitat von dajuhsa:

wer soll sich das antun, diesen "schön gestalteten" text zu lesen?

wie meinst du denn das? ist original Formatierung, einfach nur rüber kopiert.

[dajuhsa]

ach egal, nichts für ungut . ich meine nur wenn ich auf den download-button da klicke wären ein paar absätze mehr ganz hillfreich für das verständnis, finde ich

[luckystar85]

hast denn schon ne idee???

[dajuhsa]

ne, kann ich nich sagen...

[cruiser]

Also ne MessageBox mit Desktop als Parent sähe so aus:

MessageBox(GetDesktopWindow, PChar('text string'), PChar('title string'), 0); Oder mit Parametern halt so:

MessageBox(GetDesktopWindow, PChar('text string'), PChar('title string'), MB_OKCANCEL or MB_TOPMOST or MB_ICONINFORMATION); Hilfe zu den Parametern findest du hier: MessageBox

[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.

[luckystar85]

ok, das war es; irgendwie ist das mächtig komisch, auf die idee wäre ich nie gekommen das an die position zu verschieben;
vielen dank für deine hilfe