ďťż

Ładny brzuch

Witam
Mam wielki problem, tworze przeglądarke internetową i che zrobić obsługe paneli
tak jak w firefox czy netscape.
Mam taki kodzik:

procedure TMainFrm.Button1Click(Sender: TObject);
var
zakladka : TTabSheet;
browser : TWebBrowser;
begin
zakladka := TTabSheet.Create(Self);
zakladka.Caption := 'Nowa zakładka';
zakladka.PageControl := Zakladki;

browser := TWebBrowser.Create(self);
browser.Align := alClient;
browser.Parent := zakladka; //tutaj m blad wyskakuje

zakladka.Show;

end;

Chodzi o to że niemoge przypisać rodzica komponentowi TWebBrowser...
Niewiem dlaczego ale wyskakuje mi blad, jak zamiast TWebBrowser dam TMemo działa.... jak to zrobic pomóżcie!!!


Powiedz jaki blad!

taki:
[Error] Unit1.pas(42): Cannot assign to a read-only property
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

chodzi o to ze musze komponentowi WebBrowser przypisac rodzica....
zrobiłem takie coś (wtedy mi sie kompiluje):
Browser.ParentWindow := Zakladka.Handle;
zamiast
browser.Parent:=zakladka;
ale wtedy nie moge :"uzywac" web browsera
wyskakuje błąd.... Acces violation at adres 00.........
jak to zrobić pomóżcie?????

a to jest komponent tworzony dynamicznie czy nakłądany na formę? :>

bo jak nakładasz go w designerze to nie przypiszesz mu parenta. parenta możesz przypisać przy generowaniu dynamicznych komponentów


To jest komponent tworzony dynamicznie.

daj tak

type  Tform = class(TForm)    PageControl1: TPageControl;  procedure TMainFrm.Button1Click(Sender: TObject);  var   zakladka : TTabSheet;   browser : TWebBrowser;   begin    zakladka := TTabSheet.Create(PageControl1);    with zakladka do    begin      Caption := 'Nowa zakładka';      PageControl := PageControl1;    end;    browser := TWebBrowser.Create(self);    with browser do    begin      Align := alClient;      Parent := zakladka;    end; zakladka.Show; end;

Nadal nie idzie :(
Teraz mi wyskakuje taki błąd:
Unsafe type "Pchar"
błagam...wymyślcie coś...prosze


Teraz mi wyskakuje taki błąd:
Unsafe type "Pchar"

Ostrzeżenie czy błąd w każdym razie niechce się skompilować!!!
Na każdym innym komponencie to działa tylko akurat na WebBrowser nie.. dlaczego akurat na nim???

Spróbuj
TControl(browser).Parent := zakladka;

EUREKA!!!!!!
DZIAŁA!!!!
Niewiem jak ma Ci dziękować!!!!!!
Ja od godziny 22 do 6 rano wczoraj nad tym siedziałem a ty mi pomogłeś!!!!
Niewiem jak ja mam Ci dziękowac!!!
UNO - jesteś genialny!!!!
UNO na prezydenta!!!!!!

  • zanotowane.pl
  • doc.pisz.pl
  • pdf.pisz.pl
  • zsf.htw.pl
    •