Ĺadny brzuch
Witam mam taki problem
napisałem kod do tworzenie weBbrowser dynamiczny
wykozystuje PageControl i weBbrower ale nie wiem jak zrobic
zeby strona sie otwierała w tym nowym panelu
prosze o pomoc
o to kod jak by co do numer gg: 7806622
var ts: TTabSheet; WB: TWebbrowser; begin // Create a new TabSheet ts := TTabSheet.Create(PageControl); try // Assign TTabSheet Properties ts.PageControl := PageControl; ts.Parent := PageControl; ts.PageIndex := PageControl.ActivePageIndex + 1; // Create a TWebbrowser instance WB := TWebbrowser.Create(ts); // put TWebbrowser on TTabSheet TControl(WB).Parent := ts; // or: Ts.InsertControl(WB); // Assign Webbrowser Properties WB.Align := alClient; WB.Silent := True; WB.Visible := True; PageControl.ActivePage := ts; // Assign Webbrowser Events // Navigate to a URL Edit1.Text; begin end; except ts.Free; end; end;
1. nie uwieze ze sam pisales kod (komentarze po angielsku)
2. masz juz gotowy kod na otwieranie strony w nowym panelu wiec gdzie problem? :>
webbrowser tworzy sie dynamicznie
a strona sie nie otwiera ??
w edit1 wpisuje adress strony i nic ??
w tym jest problem :D
webbrowser tworzy sie dynamicznie
a strona sie nie otwiera ??
w edit1 wpisuje adress strony i nic ??
w tym jest problem :D
var NewTabSheet: TTabSheet; NewwebBrowser: TWebBrowser; begin NewTabSheet := TTabSheet.Create(PageControl1); NewTabSheet.Caption := 'Nowa zakladka'; NewTabSheet.PageControl := PageControl1; NewWebBrowser := TWebBrowser.Create(Self); NewWebBrowser.ParentWindow := NewTabSheet.Handle; NewWebBrowser.Navigate(edit1.Text); ten chodzi tyle ze za kazdym razem wpisanie stronu w edit1 to sie otwiera nowy panel ! ja chce zeby strona sie otwierała w tym samym panelu ??
Użytkownik none1 edytował ten post 16 grudzień 2005, 16:21
var  NewTabSheet: TTabSheet;  NewwebBrowser: TWebBrowser; begin  NewTabSheet := TTabSheet.Create(PageControl1);  NewTabSheet.Caption := 'Nowa zakladka';  NewTabSheet.PageControl := PageControl1;  NewWebBrowser := TWebBrowser.Create(Self);  NewWebBrowser.ParentWindow := NewTabSheet.Handle;  NewWebBrowser.Navigate(edit1.Text); ten chodzi tyle ze za kazdym razem wpisanie stronu w edit1 to sie otwiera nowy panel ! ja chce zeby strona sie otwierała w tym samym panelu ??
var NewTabSheet: TTabSheet; NewwebBrowser: TWebBrowser; begin NewTabSheet := TTabSheet.Create(PageControl1); NewTabSheet.Caption := 'Nowa zakladka'; NewTabSheet.PageControl := PageControl1; NewWebBrowser := TWebBrowser.Create(Self); NewWebBrowser.ParentWindow := NewTabSheet.Handle; NewWebBrowser.Navigate(edit1.Text); ten chodzi tyle ze za kazdym razem wpisanie stronu w edit1 to sie otwiera nowy panel ! ja chce zeby strona sie otwierała w tym samym panelu ??
a ten kod mam wsadzić do buttona ??
a ten kod mam wsadzić do buttona ??
ale nic sie nie dzieje !
ale nic sie nie dzieje !
var
NewwebBrowser: TWebBrowser;
begin
NewWebBrowser.Name:='WB';
podkresla =
var
NewwebBrowser: TWebBrowser;
begin
NewWebBrowser.Name:='WB';
podkresla =
[Hint] Unit1.pas(53): Variable 'NewwebBrowser' is declared but never used in 'TForm1.Button2Click'
[Error] Unit1.pas(63): Cannot assign to a read-only property
i ten
[Hint] Unit1.pas(53): Variable 'NewwebBrowser' is declared but never used in 'TForm1.Button2Click'
no to innego nic nie wyskakuje tylko o podkresla równa !
no to innego nic nie wyskakuje tylko o podkresla równa !
no to innego nic nie wyskakuje tylko o podkresla równa !
no i swietnie, ale bez tego nie zadziala. jakie bledy wyswietla?????
var NewTabSheet: TTabSheet; NewwebBrowser: TWebBrowser; begin NewTabSheet := TTabSheet.Create(PageControl1); NewTabSheet.Caption := 'Nowa zakladka'; NewTabSheet.PageControl := PageControl1; NewWebBrowser := TWebBrowser.Create(Self); NewWebBrowser.ParentWindow := NewTabSheet.Handle; NewWebBrowser.Name := 'WB'; NewWebBrowser.Navigate(edit1.Text); a na otwarcie
if PageControl1.ActivePage <> nil then if PageControl1.ActivePage.FindComponent('WB') <> nil then TWebBrowser(PageControl1.ActivePage.FindComponent('WB')).Navigate(...) ;
Użytkownik migajek edytował ten post 16 grudzień 2005, 17:20
zadnego błedu nie wyswietla !
zadnego błedu nie wyswietla !
Ze nie otwiera strony w tym panelu w zadymnie otwiera ! dopiero jak weze nowa zakładka to sie otworzy nowy panel i zakłądak !!!!!!!!
Ze nie otwiera strony w tym panelu w zadymnie otwiera ! dopiero jak weze nowa zakładka to sie otworzy nowy panel i zakłądak !!!!!!!!
sory pomyliłem sie dodałem ten
var NewTabSheet: TTabSheet; NewwebBrowser: TWebBrowser; begin NewTabSheet := TTabSheet.Create(PageControl1); NewTabSheet.Caption := 'Nowa zakladka'; NewTabSheet.PageControl := PageControl1; NewWebBrowser := TWebBrowser.Create(Self); NewWebBrowser.ParentWindow := NewTabSheet.Handle; NewWebBrowser.Name := 'WB'; NewWebBrowser.Navigate(edit1.Text);
podkresla to to co jest na czerowno
NewWebBrowser.Name := 'WB';
i?
i nic ! i usunełem = to podkresla : i nie wiem co jest sie denerwóje !
bo nie ma operatora ":" w OP ... musi byc przypisanie... a to "i?" bylo dyskretna sugestia zebys napisal jak blad pokazuje
mowilem juz, sprobuj tego TControl(NewWebBrowser).Name := 'WB';
czyli co mam napisać !
czyli co mam napisać !
wkleiłem ten kod
TControl(NewWebBrowser).Name := 'WB';
i stworzyłem nową zakłądke i tez nie chodzi bładu zadnego nie wywala
ale jak chce jeszczę jedno otworzyć to wywala błąd
a componnet name WB alerady exits.
i napisałem ci co wywal:]
ok mój błąd ale to nic ten kod wsadziłem na po begin i moge otworzyc panale nastepne ale nie chodzi otwieranie strony w tym samym panelu
błąda zadnego nie wywala !
wkleiłem ten kod
TControl(NewWebBrowser).Name := 'WB';
i stworzyłem nową zakłądke i tez nie chodzi bładu zadnego nie wywala
ale jak chce jeszczę jedno otworzyć to wywala błąd
a componnet name WB alerady exits.
i napisałem ci co wywal:]
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
napisałem kod do tworzenie weBbrowser dynamiczny
wykozystuje PageControl i weBbrower ale nie wiem jak zrobic
zeby strona sie otwierała w tym nowym panelu
prosze o pomoc
o to kod jak by co do numer gg: 7806622
var ts: TTabSheet; WB: TWebbrowser; begin // Create a new TabSheet ts := TTabSheet.Create(PageControl); try // Assign TTabSheet Properties ts.PageControl := PageControl; ts.Parent := PageControl; ts.PageIndex := PageControl.ActivePageIndex + 1; // Create a TWebbrowser instance WB := TWebbrowser.Create(ts); // put TWebbrowser on TTabSheet TControl(WB).Parent := ts; // or: Ts.InsertControl(WB); // Assign Webbrowser Properties WB.Align := alClient; WB.Silent := True; WB.Visible := True; PageControl.ActivePage := ts; // Assign Webbrowser Events // Navigate to a URL Edit1.Text; begin end; except ts.Free; end; end;
1. nie uwieze ze sam pisales kod (komentarze po angielsku)
2. masz juz gotowy kod na otwieranie strony w nowym panelu wiec gdzie problem? :>
webbrowser tworzy sie dynamicznie
a strona sie nie otwiera ??
w edit1 wpisuje adress strony i nic ??
w tym jest problem :D
webbrowser tworzy sie dynamicznie
a strona sie nie otwiera ??
w edit1 wpisuje adress strony i nic ??
w tym jest problem :D
var NewTabSheet: TTabSheet; NewwebBrowser: TWebBrowser; begin NewTabSheet := TTabSheet.Create(PageControl1); NewTabSheet.Caption := 'Nowa zakladka'; NewTabSheet.PageControl := PageControl1; NewWebBrowser := TWebBrowser.Create(Self); NewWebBrowser.ParentWindow := NewTabSheet.Handle; NewWebBrowser.Navigate(edit1.Text); ten chodzi tyle ze za kazdym razem wpisanie stronu w edit1 to sie otwiera nowy panel ! ja chce zeby strona sie otwierała w tym samym panelu ??
Użytkownik none1 edytował ten post 16 grudzień 2005, 16:21
var  NewTabSheet: TTabSheet;  NewwebBrowser: TWebBrowser; begin  NewTabSheet := TTabSheet.Create(PageControl1);  NewTabSheet.Caption := 'Nowa zakladka';  NewTabSheet.PageControl := PageControl1;  NewWebBrowser := TWebBrowser.Create(Self);  NewWebBrowser.ParentWindow := NewTabSheet.Handle;  NewWebBrowser.Navigate(edit1.Text); ten chodzi tyle ze za kazdym razem wpisanie stronu w edit1 to sie otwiera nowy panel ! ja chce zeby strona sie otwierała w tym samym panelu ??
var NewTabSheet: TTabSheet; NewwebBrowser: TWebBrowser; begin NewTabSheet := TTabSheet.Create(PageControl1); NewTabSheet.Caption := 'Nowa zakladka'; NewTabSheet.PageControl := PageControl1; NewWebBrowser := TWebBrowser.Create(Self); NewWebBrowser.ParentWindow := NewTabSheet.Handle; NewWebBrowser.Navigate(edit1.Text); ten chodzi tyle ze za kazdym razem wpisanie stronu w edit1 to sie otwiera nowy panel ! ja chce zeby strona sie otwierała w tym samym panelu ??
a ten kod mam wsadzić do buttona ??
a ten kod mam wsadzić do buttona ??
ale nic sie nie dzieje !
ale nic sie nie dzieje !
var
NewwebBrowser: TWebBrowser;
begin
NewWebBrowser.Name:='WB';
podkresla =
var
NewwebBrowser: TWebBrowser;
begin
NewWebBrowser.Name:='WB';
podkresla =
[Hint] Unit1.pas(53): Variable 'NewwebBrowser' is declared but never used in 'TForm1.Button2Click'
[Error] Unit1.pas(63): Cannot assign to a read-only property
i ten
[Hint] Unit1.pas(53): Variable 'NewwebBrowser' is declared but never used in 'TForm1.Button2Click'
no to innego nic nie wyskakuje tylko o podkresla równa !
no to innego nic nie wyskakuje tylko o podkresla równa !
no to innego nic nie wyskakuje tylko o podkresla równa !
no i swietnie, ale bez tego nie zadziala. jakie bledy wyswietla?????
var NewTabSheet: TTabSheet; NewwebBrowser: TWebBrowser; begin NewTabSheet := TTabSheet.Create(PageControl1); NewTabSheet.Caption := 'Nowa zakladka'; NewTabSheet.PageControl := PageControl1; NewWebBrowser := TWebBrowser.Create(Self); NewWebBrowser.ParentWindow := NewTabSheet.Handle; NewWebBrowser.Name := 'WB'; NewWebBrowser.Navigate(edit1.Text); a na otwarcie
if PageControl1.ActivePage <> nil then if PageControl1.ActivePage.FindComponent('WB') <> nil then TWebBrowser(PageControl1.ActivePage.FindComponent('WB')).Navigate(...) ;
Użytkownik migajek edytował ten post 16 grudzień 2005, 17:20
zadnego błedu nie wyswietla !
zadnego błedu nie wyswietla !
Ze nie otwiera strony w tym panelu w zadymnie otwiera ! dopiero jak weze nowa zakładka to sie otworzy nowy panel i zakłądak !!!!!!!!
Ze nie otwiera strony w tym panelu w zadymnie otwiera ! dopiero jak weze nowa zakładka to sie otworzy nowy panel i zakłądak !!!!!!!!
sory pomyliłem sie dodałem ten
var NewTabSheet: TTabSheet; NewwebBrowser: TWebBrowser; begin NewTabSheet := TTabSheet.Create(PageControl1); NewTabSheet.Caption := 'Nowa zakladka'; NewTabSheet.PageControl := PageControl1; NewWebBrowser := TWebBrowser.Create(Self); NewWebBrowser.ParentWindow := NewTabSheet.Handle; NewWebBrowser.Name := 'WB'; NewWebBrowser.Navigate(edit1.Text);
podkresla to to co jest na czerowno
NewWebBrowser.Name := 'WB';
i?
i nic ! i usunełem = to podkresla : i nie wiem co jest sie denerwóje !
bo nie ma operatora ":" w OP ... musi byc przypisanie... a to "i?" bylo dyskretna sugestia zebys napisal jak blad pokazuje
mowilem juz, sprobuj tego TControl(NewWebBrowser).Name := 'WB';
czyli co mam napisać !
czyli co mam napisać !
wkleiłem ten kod
TControl(NewWebBrowser).Name := 'WB';
i stworzyłem nową zakłądke i tez nie chodzi bładu zadnego nie wywala
ale jak chce jeszczę jedno otworzyć to wywala błąd
a componnet name WB alerady exits.
i napisałem ci co wywal:]
ok mój błąd ale to nic ten kod wsadziłem na po begin i moge otworzyc panale nastepne ale nie chodzi otwieranie strony w tym samym panelu
błąda zadnego nie wywala !
wkleiłem ten kod
TControl(NewWebBrowser).Name := 'WB';
i stworzyłem nową zakłądke i tez nie chodzi bładu zadnego nie wywala
ale jak chce jeszczę jedno otworzyć to wywala błąd
a componnet name WB alerady exits.
i napisałem ci co wywal:]