Thema: Delphi Botschaft an Application

Einzelnen Beitrag anzeigen

oki

Registriert seit: 30. Dez 2002
Ort: Brandshagen
1.819 Beiträge
 
Delphi 2007 Professional
 
#8

Re: Botschaft an Application

  Alt 4. Sep 2006, 09:19
Hi,

ich habs gefunden!!!

Ob mein weg nun so richtig gut ist weis ich nicht, aber er funzt. Ich habe folgendes gemacht:

Deklaration einer Botschaftskonstanten

  wm_MsgEvent = wm_user + 101; /// Botschaft, dass eine neue Nachricht zum Einfügen in die Mahnliste vorliegt Dann bekommt mein Main-Window eine entsprechende Behandlungsprocedur

Delphi-Quellcode:
  public
    { Public-Deklarationen }
    procedure WMMsgEvent(var Message: TMSG); message WM_MsgEvent;
  end;

procedure TMainForm.WMMsgEvent(var Message: TMSG);
begin
  MessageDlg(Format('MessageEvent: %s', [Message.msgText]), mtInformation, [mbOK], 0);
end;
Der Einfach heit halber hab ich hier den Standardparameter TMSG verwendet.
Jetzt der eigentliche Teil. Die Variable Application besitzt die Eigenschaft "MainForm"; und somit läßt sich das Handle des Hauptfensters immer eindeutig ermitteln.
Ich setzt die Botschaft dann wie folgt ab:
Delphi-Quellcode:
  // und jetzt Nachricht an Hauptfenster zum aktualisieren
  PostMessage(Application.MainForm.Handle, wm_MsgEvent, 0, 0);
o.k. Dank an alle die beim Nachdenken geholfen haben,

gruß oki
  Mit Zitat antworten Zitat