Форум: "Основная";
Текущий архив: 2003.08.04;
Скачать: [xml.tar.bz2];
ВнизКак вызвать 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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.008 c