Текущий архив: 2004.08.15;
Скачать: CL | DM;
Вниз
Как заставить при нажатии на 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
← →
Ega23 © (2004-07-30 19:54) [6]ИМХО, не проще.
Страницы: 1 вся ветка
Текущий архив: 2004.08.15;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.042 c
