Событие onMouseDown для создаваемого в ран-тайме TTabSheet

← →
niil (2007-02-07 23:26) [0]

При создании в рантайме привязываю к событию onMouseDown процедуру P_ClickWBr, где проверяю какая кнопка мыши нажата...
Но вот как в нее переслать сам Sender и MouseButton?

WinTab := TspSkinTabSheet.Create(PageContr1);
WinTab.OnMouseDown := P_ClickWBr(ТУТ НАДО ПЕРСЛАТЬ объект и мышь);

procedure TFMain.P_ClickWBr(Sender: TObject; Button: TMouseButton);
begin
if Button = mbMiddle then (Sender as TspSkinTabSheet).Destroy;
end;

← →
Johnmen © (2007-02-07 23:31) [1]

procedure P_ClickWBr(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

WinTab.OnMouseDown := P_ClickWBr;

всё уже передано...:)

← →
niil (2007-02-07 23:42) [2]

Спасибо. Все верно. А не подскаже6 как быть если нужно отследить нажатие не на самом TabSheet, а на его вкладке.

← →
Johnmen © (2007-02-07 23:51) [3]

Если со сменой закладки, то у TPageControl есть OnChange.
Если нет, то см. GetHitTestInfoAt.

← →
niil (2007-02-08 00:11) [4]

После чего пытаюсь создать в табе TWebBrowser, но он почему-то не отображается, Show и BringToFont не помогают.

WinTab.PageControl := PageContr1;
Br := TWebBrowser.Create(WinTab);
Br.Align := alclient;

← →
Германн © (2007-02-08 01:02) [5]

> После чего пытаюсь создать в табе TWebBrowser, но он почему-
> то не отображается,

Для "отображения" важен не Owner, а Parent!
Br.Parent:=WinTab;

← →
niil (2007-02-08 02:23) [6]

Не проходит. Считает как Read-Only параметр.

> niil (08.02.07 02:23) [6]
>
> Не проходит. Считает как Read-Only параметр.

Что "Не проходит!"?

> niil (08.02.07 02:23) [6]

TControl(Br).Parent := ...

← →
niil (2007-02-08 12:01) [9]

Спасибо, все работает.

Событие onMouseDown для создаваемого в ран-тайме TTabSheet Найти похожие ветки