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 не будет вызываться для графических контролов.

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