Run Time - WebBrowser Create !

[qamyoncu]

Merhaba arkadaşlar.

Program çalışırken bir butona basıldığında formda daha önceden varolan WebBrowser1 adlı TWebBrowser sınıflı bileşenin tüm özelliklerini( Property ve Event'leri) alacak şekilde nasıl Create edebiliriz?

[barutali]

Kod: Tümünü seç

 var
  WB : TWebBrowser;
begin
   WB := TWebBrowser.Create(Form1);
   TControl(WB).Parent := Form1;
   With WB do
   begin
   Top := 200;
   Left := 10;
   Height := WebBrowser1.Height;
   Width  := WebBrowser1.Width;
   OnEnter := WebBrowser1.OnEnter;
   OnExit  := WebBrowser1.OnExit;
   end;
end;

gibi yapabilirsin ....

kolay gelsin

[qamyoncu]

Kod: Tümünü seç

TControl(WB).Parent := Form1;

satırını atlıyormuşum.

Teşekkürler..

[barutali]

with wb do
begin
parent := ..
..
end;

olarak denediğimde read-only demişti büyük bi ihitmal sende orda takıldın