Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - PopUpMenu1

Paid4Chat - Mo 15.07.02 12:45
Titel: PopUpMenu1

hallo, ich will ein PopUpMenu aufrufen, ok ich bekomme es aufgerufen aber das ist mitten aufm Bildschirm, ich bekomme das mit der Position nicht hin ! das soll da sein wo man auf einen Speedbutton klickt, wie bekomme ich das hin ? das will da einfach nicht hin, kann mir da einer helfen ???

Wäre echt nett und wichtig !

MFG
Dennis

DeCodeGuru - Mo 15.07.02 12:53

Hi Paid4Chat,

mit PopUpMenu1.Popup(x,y) dürftest du es hinbekommen.

Paid4Chat - Mo 15.07.02 14:15

vielen dank, ich werde es ausprobieren !

Tpercon - Di 16.07.02 11:34

Hi

Probier das mal:

Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.SpeedButton1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var p:TPoint;
begin
If Button=mbright
 then
  begin
   p:=TSpeedButton(Sender).ClientToScreen(Point(x,y));
   PopUpMenu1.Popup(p.x,p.y);
  end;
end;

Gruß

Paid4Chat - Di 16.07.02 12:59

danke, das werde ich auchmal testen !
:D

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!