webbrowser ekleme

[Misafir]

label1[sayac]:=TLabel.Create(Self);
label1[sayac].Parent := Self;
label1[sayac].Width := 50;
label1[sayac].Height := 50;
label1[sayac].Name := 'Label1';
label1[sayac].Left := intLeft;
label1[sayac].Top := intTop;


bu şekilde label ekleniyor.ancak webbrowser nesnesini ekleyemiyorum..
parent satırında hata veriyor..

teşekkürler..

[mrmarman]

Merhabalar...

- Windows Help'ine bakacaktım ama daha önce ilk gözüme çarpan Parent deyince TWinControl değilde IDispatch oluyor... Anladığıma göre (yanlışım varsa düzeltin) bu ReadOnly

- Şansıma güvenirim ve bir deneyim dedim oldu. Doğruluğundan emin değilim ama şöyle dene...

Kod: Tümünü seç

  TWinControl(WebBrowser[sayac]).Parent := Self;

- Araştırmayı ihmal etme, çünkü ciddi bir projenin parçası ise sonradan pişman olmayasın...

[naile]

verdiğiniz yanıttan bir yere varamadım. başka bir componenti ekliyorum...ancak yazdıgınız satır vs bi işe yaramadı.. Webbrowser işin içine girince farklı oluyor..eklemiyor...

denedim oldu demiştiniz...nasıl yaptınız gosterebilirmisiniz...

[mrmarman]

@naile olması gereken yere taşıdığın için teşekkürler...

@alperim
- Anlamayacak bişey yok. Normalde yapıyorum dediğin şeyi yapıp sadece hata veren satırlarda TWinControl() parantezine alacaksın...

- Yeni boş bir proje aç. ve sadece 1 adet Button koyup aşağıdakini aktar.

Kod: Tümünü seç

Var
  WebBrowser : Array of TWebBrowser; // Uses
  Sayac : Integer = -1;
procedure TForm1.Button1Click(Sender: TObject);
begin
  Inc(Sayac);
  SetLength(WebBrowser, Sayac+1);
  WebBrowser[Sayac] := TWebBrowser.Create(Self);
  TWinControl(WebBrowser[Sayac]).Parent := Self;
  WebBrowser[Sayac].Width  := 50;
  WebBrowser[Sayac].Height := 50;
  TWinControl(WebBrowser[Sayac]).Name   := 'WebBrowser'+IntToStr(Sayac);
  WebBrowser[Sayac].Left   := Sayac * 20;
  WebBrowser[Sayac].Top    := Sayac * 10;
end;