PopUpMenu1

Paid4Chat · Hält's aus hier Beiträge: 14

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 · Beiträge: 1333 Erhaltene Danke: 1 Arch Linux Eclipse

Hi Paid4Chat,

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

_________________
Viele Grüße
Jakob

Paid4Chat · Hält's aus hier Beiträge: 14

vielen dank, ich werde es ausprobieren !

Tpercon · Beiträge: 60

Hi

Probier das mal:

markieren

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 · Hält's aus hier Beiträge: 14

danke, das werde ich auchmal testen !

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme