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:

Zitat von Helmi

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

Danke ! Das finde ich alternativ :thumb:

[Die Muhkuh]

Zitat:

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:

Zitat von DeddyH

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

Ein Versuch wars wert :-D

[DeddyH]

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

[BullsEye]

ggf.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
VAR  P: TPoint;
begin
  P := ClientToScreen(Point(Button1.Left + Button1.Width div 2,
                            Button1.Top + Button1.Height div 2));
  PopupMenu1.Popup(P.X, P.Y);
end;

Musste nur für dein Panel übernehmen

[Sharky]

Zitat:

Zitat von Delphiturbo

Hallo ...

Hallo Delphiturbo.

Ich habe Dir geschrieben.

Erst wenn Du mir antwortest, oder einem anderem aus dem Team, darft Du hier wieder etwas fragen!