Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

меню [D7, WinXP]


rosl ©   (2005-09-27 09:06:00) 

Как сделать чтоб при нажатии левой кнопкой мыши на button открывалось бы popup menu присвоенное к button


ЮЮ   (2005-09-27 09:49:00) [1]

извращенец? :)

procedure TForm1.Button1Click(Sender: TObject);
var
 cp: TPoint;
begin
 cp := Mouse.CursorPos;
 PopupMenu1.Popup(cp.X, cp.Y);
end;


Fay   (2005-09-27 09:46:00) [2]

PopupMenu1.Popup ?


rosl   (2005-09-27 09:44:00) [3]

нет, срабатывает при нажатии правой кнопки мыши, а мне нужно левой


ЮЮ   (2005-09-27 09:16:00) [4]

Заполнить св-во PopupMenu у этого button-а


Наверх

Титульная страница Поиск, карта сайта Написать письмо