Hallo Daniel,
das
Handle 0 ist für diese Message vielleicht etwas ungeschickt - da sollte schon jemand auf deine Message lauschen. Alles andere ist nicht unbedingt notwendig, aber macht mitunter Sinn:
Delphi-Quellcode:
procedure TDemoForm.ButtonClick(Sender: TObject);
var
h: THandle;
pt: TPoint;
begin
h := ActionPanel.Handle; // and 0;
pt.X := 100;
pt.Y := 10;
PostMessage(h, WM_RBUTTONDOWN, MK_RBUTTON, pt.Y shl 16 + pt.X);
PostMessage(h, WM_RBUTTONUP, MK_RBUTTON, pt.Y shl 16 + pt.X);
end;
Grüße vom marabu
Edit: debugging code auf Kommentar gesetzt