Align на PageControl

← →
Rentgen © (2003-10-22 07:31) [0]

Мастера! Подскажите:
Не работает Align на созданном компоненте в Run-time:
web:=TWebBrowser.Create(self); web.ParentWindow:=PageControl1.Pages[0].Handle; web.Align:=alClient;

Может че-то с ParentWindows"ом ?

← →
MBo © (2003-10-22 08:05) [1]

А просто Parent вместо ParentWindow не попробуешь?

← →
Rentgen © (2003-10-22 19:46) [2]

Почему-то Parent у TWebBrowser имеет свойства Read-only.

← →
Vl@d (2003-10-23 03:55) [3]

Да, действительно Read-only...Хм.

Вроде работате :)

procedure TForm1.Button1Click(Sender: TObject);
var
BBB: TWebBrowser;
Flags: OLEVariant;
begin
BBB := TWebBrowser.Create(Form1);
bbb.ParentWindow := TabSheet1.Handle;
bbb.Align := alClient;
bbb.ShowHint := true;
bbb.Hint := "dddddddddddddddd";
Flags := 0;
bbb.Navigate(WideString("DX.TXT"), Flags, Flags, Flags, Flags);
end;

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