Текущий архив: 2002.10.17;
Скачать: 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 вся ветка
Текущий архив: 2002.10.17;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.012 c
