Urob to takto:
var
wb: TWebBrowser;
begin
wb := TWebBrowser.Create(self);
TWinControl(wb).Name := 'WebBrowser'+IntToStr(1);
TWinControl(wb).Parent := self;
wb.Align := alClient;
wb.Navigate('http://pc.poradna.net');
end;
Urob to takto:
var
wb: TWebBrowser;
begin
wb := TWebBrowser.Create(self);
TWinControl(wb).Name := 'WebBrowser'+IntToStr(1);
TWinControl(wb).Parent := self;
wb.Align := alClient;
wb.Navigate('http://pc.poradna.net');
end;