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

Вниз

Как вызвать PopupMenu под компонентом (скажем под кнопкой)   Найти похожие ветки 

 
Артем К   (2003-07-22 07:26) [0]

Привет всем!!!

Вопрос в теме сообщения!

Заранее спасибо!!!


 
gek ©   (2003-07-22 07:47) [1]

PopupMenu1.Autopopup:=false;

procedure TForm1.ToolButton100000Click(Sender: TObject);
var
T:TPoint;
begin
t.x:=ToolButton10000.Left - 2;
t.y:=ToolButton10000.Top;
t:=ClientToScreen(t);
PopupMenu1.Popup(t.X, t.Y);
end;


 
Юрий Зотов ©   (2003-07-22 07:51) [2]

Mouse.CursorPos - дает координаты мыши
FindVCLWindow - дает оконный контрол в этой точке
ControlAtPos - дает контрол в этой точке
PopupMenu - дает его popup-меню
Popup - вызывает это меню



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

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

Наверх




Память: 0.46 MB
Время: 0.017 c
1-10197
Till
2003-07-23 09:40
2003.08.04
Не пойму почему так происходит


14-10427
Knight
2003-07-18 01:37
2003.08.04
Вытаскивание писем из Outlook Express?


1-10251
timotei
2003-07-21 12:21
2003.08.04
Панель Message View как в IDE D7


14-10356
Igorek
2003-07-18 19:03
2003.08.04
Есть идея - online application development


1-10256
Hollander
2003-07-19 22:56
2003.08.04
В системе открыли файл моей прогой...