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

PopupMenu в PageControl   Найти похожие ветки 

← →
BorisKB ©   (2003-08-29 11:49) [0]

Как бы так сделать, что б это меню не открывалось на TabSheet, а только на закладках?

---

← →
Camus ©   (2003-08-29 12:05) [1]

Посмотрите OnContextPopup, IndexOfTabAt и GetHitTestInfoAt.

---

← →
don-do   (2003-08-29 12:07) [2]

Создай наследника с процедурой
procedure WMContextMenu(var Message: TWMContextMenu); message WM_CONTEXTMENU;

---

← →
BorisKB ©   (2003-08-29 12:44) [3]

Прошу прощения, я вероятно был слишком краток в описании проблемы. Я сделал по методу, предложенным Camus-ом, но в этом случае все Control-ы, находящиеся на TabSheet так же теряют свои PopupMenu. Например edit своё меню не показывает.

---

← →
Camus ©   (2003-08-29 13:01) [4]

> BorisKB ©

Можно добавить ControlAtPos, но лучше сначала приведите код и уточните - OnContextPopup КАКОГО компонента задействовано?

---

← →
BorisKB ©   (2003-08-29 13:06) [5]

У компонента PageControl на событие OnPopup PopupMenu прописан вот этот обработчик:
begin
Point := PageControl.ScreenToClient(Mouse.CursorPos);
Ind := PageControl.IndexOfTabAt(Point.x, Point.y);
if Ind = -1 then Abort;
...
end;

---

← →
Camus ©   (2003-08-29 13:55) [6]

procedure TForm1.PageControl1ContextPopup(Sender: TObject; MousePos: TPoint; var Handled: Boolean);
begin
Handled := (PageControl1.GetHitTestInfoAt(MousePos.X, MousePos.Y) <> [htOnItem, htOnLabel])
and (FindVCLWindow(Mouse.CursorPos) is TTabSheet)
end;

---

← →
BorisKB ©   (2003-08-29 16:59) [7]

Camus-у благодарности публично, за недоступностью e-mail :))

---

← →
Camus ©   (2003-08-29 17:20) [8]

> BorisKB © (29.08.03 16:59) [7]

И все-таки лучше поэкспериментировать с ControlAtPos (вместо FindVCLWindow). Иначе pop-up menu не будет вызываться для графических контролов.

---

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

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



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