Jak zrobic napis z nzwą strony na psaku tytulowym??

0

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 ?? [???]

0

W sekcji HEAD musisz umieścić podsekcję TITLE
Poniżej zamieszczam prosty przykład:

Tytuł strony



Treść strony

PS. Ucz sie podstaw HTML'a :)

0

Mam takie coś wpisac w programie [???] :-8

0

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;

0

Za dobrze jescze nie progamuje ;-) Ale gdzie to wpiać [???] [glowa]

0

chyba w WebBrowser.OnEndUpdate czy jakos tak... Poszukaj na zakladce Events w OI

0

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ń ;)

0

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)

0

to ziombera przyda sie w edytorach html :-)

0

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]

0

Chwila roboty...

form1.caption:='Nazwa Programu ('+text+')';
Application.Title:= 'Nazwa Programu ('+text+')';

Chyba nie zrobiłem byka :P

1 użytkowników online, w tym zalogowanych: 0, gości: 1