Скачать: CL | DM;

Мастера подскажите! Нужно чтобы при нажати на какой либо элемент   Найти похожие ветки 

← →
wer1   (2002-10-07 08:46) [0]

Мастера подскажите! Нужно чтобы при нажати на какой либо элемент
левой клавишей мышки например ToolButton появлялось контекстное меню как при нажатии правой клавишей мышки?

---

← →
gek ©   (2002-10-07 09:00) [1]

использовать PopUp из Delphi
примерно так

procedure TFormMain.ToolButton10Click(Sender: TObject);
var
T:TPoint;
begin
t.x:=ToolButton10.Left - 2;
t.y:=ToolButton10.Top - ToolButton10.heigh;
t:=ClientToScreen(t);
PopupMenu1.Popup(t.X, t.Y);
end;



---

← →
MBo ©   (2002-10-07 09:01) [2]

PopupMenu1.Popup

---

← →
OxOTHuK   (2002-10-07 09:01) [3]

На форму кидается Popup меню - в него д забиваешь пункты так же как и в главное (ITEMS) - затем в инспекторе объектов у кнопки в поле Popup-menu выбираешь свое...
Если такое не прокатит, то вставляешь обработчик кнопки OnClick вызываешь свое меню типа popup1.show...
Наверное так... должно заработать (сам не проверял)...

---

← →
wer1   (2002-10-07 10:39) [4]

Всем спасибо.Попробовал код который предложил gek
как раз то что надо.

---

← →
Юрий Зотов ©   (2002-10-07 11:03) [5]

С одной оговоркой - этот код можно сократить до 1-й строки:

with Mouse.CursorPos do PopupMenu1.Popup(X, Y);

---

← →
Pat ©   (2002-10-07 12:08) [6]

>...например ToolButton..
Style:=tbsDropDown;
DropDownMenu:=PopupMenu1;
И красиво и стандартно :-))

---

← →
Anatoly Podgoretsky ©   (2002-10-07 12:11) [7]

Или вообще выкинуть, в панели управления, мышка - поменять местами клавиши, и это будет честно по отношению к пользователю

---

← →
wer1   (2002-10-08 04:47) [8]

Вопросов больше нет по данному решению. Каждый предложенный код имеет свою особенность для разны задач. Код предложенный Pat-ом
имеет приимущество в части того что кнопку можно использовать
и по прямому назначению т.е. при двойном нажатии (должна появиться стрелка для выбора пунктов меню), а сама кнопка работает собственно как обычная и отрабатывает какое либо действие, а код предложенный Юрием Зотовым хорош тем что краток и меню появляется в конкретном месте на элементе куда указывает курсор(я не пробовал на больших элементах но думаю что именно в этих случаях он удобен).

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c