Ich benutze ja die TMS Komponente.
Jedem Icon wird die gleiche OnMouseDown zugewiesen. Durch Filtern des Senders habe ich dann den Index für mein Array, indem das HWND, HICON, Callback usw drinnen steht.
In der OnMouseDown unterscheide ich dann ob linke/rechte/mittlere Mouse Button und schicke dann ein Sendmessage zu dem jeweiligen Hwnd mit z.B. WM_LBUTTONDOWN oder WM_RBUTTONDOWN. Das gleiche natürlich auch mit Up usw.
Jedoch spricht mir nicht jedes Icon auf diese Codes an! Das Realtek HD Audio Manager z.B. gar nichts. Kaspersky Icon jedoch funktionert linke und rechte Mouse.
Deswegen möchte ich die Message die beim Mouseclick entsteht 1:1 weiterleiten, denn in der originalen
TNA geht es ja!
so was halt wie: WndProc(var Message: TMessage)
Jedoch habe ich beim OnMouseDown nur diese Parameter:
Delphi-Quellcode:
procedure TForm2.OnMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
Sender wie gesagt filtere ich heraus, Button filtere ich nach links/rechts/middle.
Wie bekomme ich die TMessage die ich dann per Sendmessage weiterleiten kann?