Problem mit Postmessage: Rechtsklick ausführen

[Danny87]

Hi Leute,

ich möchte gerne einen Rechtsklick durch mein Programm ausführen lassen.
Allerdings funktioniert das irgendwie nicht.
Könnt ihr mir sagen, was ich falsch mache?

Delphi-Quellcode:

PostMessage(0,WM_RBUTTONDOWN,0,0);
PostMessage(0,WM_RBUTTONUP,0,0);

Gruss
Daniel

[marabu]

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

[nat]

Zitat von marabu:

  h := ActionPanel.Handle and 0;

wozu das and 0??
wenn ich etwas mit 0 verunde kommt immer 0 raus!
somit is h immer = 0.
mit
  h := MyPanel.Handle; gehts!

[Danny87]

Hmm danke!

Aber wie kann ich machen, dass der Klick Systemweit gesendet wird und nicht nur an ein bestimmtes Fenster oder so?

Gruss
Daniel

[SirThornberry]

dafür gibt es die Funktion "mouse_event". Dein Vorhaben ist also wie folgt Realisierbar:

Delphi-Quellcode:

SetCursorPos(x, y);
mouse_event(MOUSEEVENTF_RIGHTDOWN, x, y, 0, 0);
mouse_event(MOUSEEVENTF_RIGHTUP, x, y, 0, 0);

[Danny87]

Danke
So funktionierts!