Menü (PopUpMenu) mit der Rechtenmaustaste aufrufen ?

[Delphiturbo]

Hallo

die Menü wird angezeigt aber so weit von dem Maus-Klick

Delphi-Quellcode:

var
   pt : TPoint;
begin
pt := ClientToScreen(Point(x, y)); 
PopUpMenu1.Popup(pt.x, pt.y); // hier muss ich x,y von Panel eingeben
end;

Diese Angaben (x, y) betrift die Form
Ich wollte aber die Menü auf Panel erzeugen

[DeddyH]

Überleg mal, von welchem Control Du die Methode ClientToScreen aufrufst und welches Control es sein müsste.

[Die Muhkuh]

Schau Dir mal GetCursorPos an.

[mkinzler]

Panel.Left / Panel.Top liefert dir die linke Ecke des Panels

[Helmi]

oder du gibst im OI bei deinem Panel das PopupMenu an
(Property: PopUpMenu)

[DeddyH]

Das geht AFAIR aber erst seit Delphi 7, und da er die Delphi-Version ja nicht angibt...

[Delphiturbo]

Zitat von Helmi:

oder du gibst im OI bei deinem Panel das PopupMenu an
(Property: PopUpMenu)

Danke ! Das finde ich alternativ

[Die Muhkuh]

Zitat von DeddyH:

Das geht AFAIR aber erst seit Delphi 7, und da er die Delphi-Version ja nicht angibt...

... wir aber trotzdem wissen, dass er TDE verwendet.

[Helmi]

Zitat von DeddyH:

Das geht AFAIR aber erst seit Delphi 7, und da er die Delphi-Version ja nicht angibt...

Ein Versuch wars wert

[DeddyH]

[OT] Das finde ich auch alternativ [/OT]