Ein modales Fenster extern schließen

[messie]

Moin,

gerade ist das Thema in einem anderen Forum aufgetaucht und ich würde auch gerne in einer Anwendung ein modales Meldungsfenster von außerhalb schließen. Mir war so, als ginge das und als hätte ich da mal eine Anleitung mit einer globalen Message gesehen. Ich weiß aber nicht mehr wo und bekomme das nicht mehr genau zusammen.

Kann mir (und damit evtl. auch dem user im anderen Forum) jemand sagen, wie das ging oder wo das stand?

Danke, Messie

[chaosben]

Joa ... des iss relativ einfach.

In dem modalen Form definierst du eine Prozedur

Delphi-Quellcode:

procedure MyCloseMessage(var AMessage : TMessage); message WM_USER + 1;
//...
procedure TForm2.MyCloseMessage(var AMessage: TMessage);
begin
  ModalResult := mrOk;
end;

Dann brauchst du nur noch die Message hinschicken:

Delphi-Quellcode:

SendMessage(Form2.Handle, WM_USER + 1, 0, 0);

WM_USER + 1 ist nur ein Beispiel ... da sollte man etwas höheres nehmen, weil WM_USER + 1 schon sehr oft verwendet wird.

[messie]

Super, danke!