Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.04 c
3-1090240496
Aslan
2004-07-19 16:34
2004.08.15
Как с помощью SQL добавить данные в поле типа Memo?


3-1090577785
sapsi
2004-07-23 14:16
2004.08.15
Удаление записей в АДО таблице


1-1091557405
AlexG
2004-08-03 22:23
2004.08.15
Момент закрытия ДБКомбоБокса


14-1091292852
nelud
2004-07-31 20:54
2004.08.15
Задачи


4-1088788023
Алексей
2004-07-02 21:07
2004.08.15
Многооконное приложение