Форум: "Основная";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Вниз

меню   Найти похожие ветки 

← →
rosl   (2005-09-27 09:06) [0]

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

---

← →
ЮЮ ©   (2005-09-27 09:16) [1]

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

---

← →
rosl   (2005-09-27 09:44) [2]

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

---

← →
Fay ©   (2005-09-27 09:46) [3]

PopupMenu1.Popup ?

---

← →
ЮЮ ©   (2005-09-27 09:49) [4]

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

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

---

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

Форум: "Основная";
Текущий архив: 2005.10.16;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.035 c