Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.11.05;
Скачать: CL | DM;

Вниз

Popupmenu над кнопкой   Найти похожие ветки 

 
Crazybeaver   (2006-10-24 12:33) [0]

Здрасти. Недавно изучаю Делфи. Пока любитель, поэтому простой ламерский вопрос.

Необходимо, чтобы после нажатия на кнопку всплывала менюшка popupmenu2. Меню всплывает на popupmenu2.Popup(x,y), где x и y координаты кнопки. Как определить эти координаты? Заранее спасибо.


 
Elen ©   (2006-10-24 12:55) [1]


> Crazybeaver

как вариант :

procedure TForm1.Button1Click(Sender: TObject);
var t:Tpoint;
begin
t.X :=Button1.Left;
t.Y:=Button1.Top;
t:=form1.ClientToScreen(t);
PopupMenu1.Popup(t.X, t.Y);
end;


 
Crazybeaver   (2006-10-24 13:16) [2]

2 Elen
Спасибо.



Страницы: 1 вся ветка

Текущий архив: 2006.11.05;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.029 c
6-1150160343
anton773
2006-06-13 04:59
2006.11.05
большой размер файла


15-1161167667
Juice
2006-10-18 14:34
2006.11.05
Quantum Grid, обычная таблица


2-1161541388
Officeman
2006-10-22 22:23
2006.11.05
ST := StringReplace(TOVAR, & , & , [frReplaceAll]); ???


3-1157530197
tomkat
2006-09-06 12:09
2006.11.05
Convert "Null" to "0"


15-1161166150
SerJaNT
2006-10-18 14:09
2006.11.05
Комп не грузиться=((