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

Событие 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 параметр.

---

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

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

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

---

← →
begin...end ©   (2007-02-08 08:10) [8]

> niil   (08.02.07 02:23) [6]

TControl(Br).Parent := ...

---

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

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

---

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

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



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