Mam przeglądarke i chciałbum zeby na psaku tytułowym była wyswietlona nazwa strona np. jak wchodze nawww.4programmers.net to na pasku jest napis 4programmers.net a jak wchodze na wp.pl to jest napis Wirtualna Polska. Jak zrobic aby i u mnie takie coś bylo ?? [???]
W sekcji HEAD musisz umieścić podsekcję TITLE
Poniżej zamieszczam prosty przykład:
Tytuł strony
Treść strony
PS. Ucz sie podstaw HTML'a :)
Mam takie coś wpisac w programie [???] :-8
Przepraszam, nie zrozumiałem pytania. Napisałeś je tak jakbyś pytał o stronę WWW.
OK, zapewne zrobiłeś tą przeglądarke przy pomocy kontrolki TWebBrowser, wtedy aby wyświetlić tytuł załadowanej strony trzeba napisać:
Caption := WebBrowser1.OleObject.Document.Title;
Za dobrze jescze nie progamuje ;-) Ale gdzie to wpiać [???] [glowa]
chyba w WebBrowser.OnEndUpdate czy jakos tak... Poszukaj na zakladce Events w OI
Mleczasz, jak nie wiesz to się nie wypowiadaj:
w OnMainTitle, lub coś pod ten kontekst:
form1.caption:=text; //tu się pokaże na pasku tytulowym formy.
Application.Title:= text; //a tu na pasku zadań ;)
albo zapisz to gdzies otworz w jakims memo i sprawdz za pomoca:
procedure tform1.sprawdz_tytul;
var
i,i2 : integer;
s,tit : string;
begin
for i:=0 to synmemo1.Lines.Count - 1 do
begin
s := synmemo1.Lines[i];
tit := s;
s := lowercase(s);
if pos('',s) > 0 then
begin
delete(tit,1,pos('',s)+6);
delete(s,1,pos('',s)+6);
delete(tit,pos('',s),length(s));
tab1.Caption := tit;
break;
end;
if i = 50 then break;
end;
end;
co jest czym nie bede mowil bo to pochdozi z mojego programiku, ktory znajduje sie na 4programmers.net (notepad)
to ziombera przyda sie w edytorach html :-)
Sebek dzięki dziła ale wolalbym żeby jednak Caption programu pozostala a obek niego w nawisie była nazwa strony [???] Bylbym o wiele bardziej zadowolny [hurra]
Chwila roboty...
form1.caption:='Nazwa Programu ('+text+')';
Application.Title:= 'Nazwa Programu ('+text+')';
Chyba nie zrobiłem byka :P