Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by shmia,
2. Nov 2004
Du kannst die linke obere Ecke des Popupmenues festlegen.
Wenn du den Sourcecode anschaust, dann siehst du, dass die linke untere Ecke von SpeedButton1 als Ausgangspunkt dient:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
pt: TPoint;
begin
pt.x := SpeedButton1.BoundsRect.Left;
pt.y := SpeedButton1.BoundsRect.Bottom;
pt := ClientToScreen(pt);
...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by shmia,
2. Nov 2004
Es geht auch mit Delphi Bordmitteln:
Setz einen Button und ein Popup-Menue auf ein Formular. Und Dann:
procedure TForm1.SpeedButton1Click(Sender: TObject);
var
pt: TPoint;
begin
pt.x := SpeedButton1.BoundsRect.Left;
pt.y := SpeedButton1.BoundsRect.Bottom;
pt := ClientToScreen(pt);
PopupMenu1.Popup(pt.x, pt.y);