Консультация № 110242
20.11.2007, 09:57
0.00 руб.
0 2 2
Добрый день! Как при нажатии на кнопку (левой кнопкой) вывести над ней PopupMenu? Чтобы независимо от курсора это меню находилось ровно над кнопкой.
Спасибо!

Обсуждение

Неизвестный
20.11.2007, 10:07
общий
это ответ
Здравствуйте, Red Spirit!

procedure TForm1.Button1Click(Sender: TObject);
begin
PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);
end;
Неизвестный
20.11.2007, 10:23
общий
это ответ
Здравствуйте, Red Spirit!
воспользуйтесь командой
PopupMenu1.Popup
при нажатии на кнопку я задал такие параметры
((button1.Left+form1.Left+(button1.Width div 4)),(form1.Top+Button1.Top-button1.Height));
меню всплывает над кнопкой.
Форма ответа