Systemmenü eines Fensters an bestimmter Bildschirmposition anzeigen

[Codehunter]

Hallo!

Wenn man mit links auf das Fenster-Icon in der Titelzeile klickt bekommt man das Systemmenü mit standardmäßig Wiederherstellen, Verschieben, Minimieren usw. Wie kann ich dieses Systemmenü zur Laufzeit an einer bestimmten Bildschirmposition anzeigen?

Grüße
Cody

[DeddyH]

Könnte man nicht ein TPopupMenu nehmen und dessen Items aus dem Systemmenü klonen?

[Codehunter]

Wäre evtl. auch möglich aber ich könnt mir denken daß es einfacher ist das originale Menü anzuzeigen. Im Prinzip bräuchte ich ja nur das Handle HMENU vom Systemmenü des Fensters, dann könnte ich es ja mit TrackPopupMenu anzeigen. Nur wo krieg ich das Handle her? MainForm.WindowMenu ist bei mir NIL, so gehts also schonmal nicht.

EDIT: Naja, es ist Montag :-) Lösung:

Code:

var
  M: HMenu;
begin
  M:= GetSystemMenu(Handle, FALSE);
  TrackPopupMenu(M, TPM_LEFTALIGN, 10, 10, 0, Handle, 0);
end;