form içinde webbrowser yaratma

[Jire]

var
Formcuk: TForm;
Webby: TWebBrowser;
i : integer;
AvailableFields: set of TFieldType;
begin
//Formcuk create
Formcuk := TForm.Create(Owner);
Formcuk.Width := 1024;
Formcuk.Height := 768;
Formcuk.Position := poScreenCenter;

.....

Webby := TWebBrowser.Create(Formcuk);
Webby.ParentWindow := Formcuk.Handle;
Webby.Height := Formcuk.ClientHeight;
Webby.Width := Formcuk.ClientWidth;
Webby.Align := alClient;
end;



merhaba benim böyle bi kodum var ve hata nerde bilmiyorum ama alignt client çalışmıyor resimdeki gibi oluyor.

yardım ederseniz sevinirim.

[sabanakman]

Webby.ParentWindow := Formcuk.Handle; yerine Webby.Parent := Formcuk; yazarak dene.

[Jire]

Webby.ParentWindow := Formcuk.Handle; yerine Webby.Parent := Formcuk; yazarak dene.

Teşekkürler ama,
bunu önceden denemiştim bu hatayı veriyor.
[Error] Main.pas(726): Cannot assign to a read-only property

[sabanakman]

Hakikaten TWebBrowser'a ait Parent isimli farklı bir özellik varmış . Aslında bizim amacımız TControl'den türeyen tüm bileşenlere ait olan Parent özellğine atama yapmak. Bunun içinde atamayı aşağıdaki şekilde yapınca sanırım sorun çözülecektir.

Kod: Tümünü seç

TControl(Webby).Parent := Formcuk;

[Jire]

Hakikaten TWebBrowser'a ait Parent isimli farklı bir özellik varmış . Aslında bizim amacımız TControl'den türeyen tüm bileşenlere ait olan Parent özellğine atama yapmak. Bunun içinde atamayı aşağıdaki şekilde yapınca sanırım sorun çözülecektir.

Kod: Tümünü seç

TControl(Webby).Parent := Formcuk;

Çok teşekkürler.Çalıştı