Как заставить при нажатии на SpeedButton выскакивало PopupMenu?

← →
Studentik © (2004-07-30 17:25) [0]

Исползую так:

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
SpeedButton1.PopupMenu.Popup(12,12);
end;

Естественно, меню выходит с заданными координатами (12,12), а как изменить строку, чтобы координаты были равны текущим координатам мыши.

Знаю, что можно извратится с MouseMove, но подскажите, плз, более красивое решение.

← →
Ega23 © (2004-07-30 17:29) [1]

MousePos или GetMousePos, точно не помню. Посмотри в хелпе

← →
Rem (2004-07-30 17:30) [2]

var P: TPoint; begin P := Point(0, SpeedButton1.Height); P := SpeedButton1.ClientToScreen(P); PopupMenu.Popup(P.X, P.Y); end;

← →
Ega23 © (2004-07-30 17:31) [3]

GetCursorPos, вот как она называется!

← →
Studentik © (2004-07-30 18:22) [4]

Большое спасибо!!!

← →
SelloutS (2004-07-30 19:44) [5]

а не проще ли:

Mouse.CursorPos.X
Mouse.CursorPos.Y

ИМХО, не проще.

Как заставить при нажатии на SpeedButton выскакивало PopupMenu? Найти похожие ветки