Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

niil © (2007-02-07 23:26:00)
При создании в рантайме привязываю к событию 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;

niil (2007-02-08 12:01:00) [1]
Спасибо, все работает.

begin...end (2007-02-08 08:10:00) [2]
> niil (08.02.07 02:23) [6]

TControl(Br ).Parent := ...

Германн (2007-02-08 02:35:00) [3]

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

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

niil (2007-02-08 02:23:00) [4]
Не проходит. Считает как Read-Only параметр.

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

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

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

niil (2007-02-08 00:11:00) [6]
После чего пытаюсь создать в табе TWebBrowser, но он почему-то не отображается, Show и BringToFont не помогают.

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

Johnmen (2007-02-07 23:51:00) [7]
Если со сменой закладки, то у TPageControl есть OnChange.
Если нет, то см. GetHitTestInfoAt.

niil (2007-02-07 23:42:00) [8]
Спасибо. Все верно. А не подскаже6 как быть если нужно отследить нажатие не на самом TabSheet, а на его вкладке.

Johnmen (2007-02-07 23:31:00) [9]
procedure P_ClickWBr(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

WinTab.OnMouseDown := P_ClickWBr;

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »