Sendmessage kommt nicht an

[malabarista]

Ich versuche aus einer eigenen DLL mittels Sendmessage eine Nachricht an das Hauptprogramm zu senden.

Code: Alles auswählen

 
       SendMessage(hApp, WM_USER + 1, 65, 0);
 

Die kommt aber im Hauptprogramm nicht an.

Code: Alles auswählen

 
...
  public
    { public declarations }
  procedure DllMessage(var Msg: TMessage); message WM_USER + 1;
....
 

Vermutlich hängt dies mit der Variablen hApp zusammen.
Dieses Handle übergebe ich beim Start des Hauptprogramms an die DLL beim Aufruf:

Code: Alles auswählen

 
  starth(memo.Handle, Handle);
 

memo.Handle funktioniert: das ist das Handle eines Memo-Feldes auf dem Hauptformular und aus der DLL kann ich direkt dorthinein schreiben.
Aber die Variable Handle scheint falsch zu sein. Wie müsste sie richtig lauten ?

[marcov]

Es soll die Formhandle sein der den Handler hat.

[mschnell]

Ich versuche aus einer eigenen DLL mittels Sendmessage eine Nachricht an das Hauptprogramm zu senden.

Warum ?
Innerhalb eines Programms (die DLL ist ja nur dynamisch angelinkt, aber zur Laufzeit Teil des Programms) gibt es da Lazarus/Delphi-interne Möglichkeiten statt Windows-Spezialitäten zu benutzen.

z.B. um den MainThrfead zu signalisieren: TThread.Queue.

-Michael