Przeglądarka

[Arion]

Otóż robie przeglądarkę w Delphi 7 według kursu Delphi 6 i kiedy zamieściłem wszystkie komponenty w kursie miałem zaprogramować komponent combo więc pomyślałem że chodzi o ComboBox i zaprogramowałem go tak:

 

 

procedure TWebMain.URLComboBoxKeyPress(Sender: TObject; var Key: Char);

begin

if Key = Char(VK_RETURN) then

begin

Key := #0;

if URLComboBox.Text<>'' then

begin

WebBrowser1.Navigate(URLComboBox.Text);

{UpdateURL;}

end;

end;

procedure TWebMain.URLComboBoxDblClick(Sender: TObject);

var

C: Char;

begin

C := Char(VK_RETURN);

URLComboBoxKeyPress(Sender. C);

end;

 

Teraz nie wiem co robić ponieważ program daje jakieś problemy i mówi że .nie pasi proszę o pomoc bo staram się to zrobić od miesiąca :(

[Maxius]

A ja się coś innego spytam : dlaczego założyłeś dwa tematy?

 

( Sryy za offtop )

[Arion]

Sam nie wiem jakoś samo założyło

[kryniak]

A ja się coś innego spytam : dlaczego założyłeś dwa tematy?

 

( Sryy za offtop )

Bo spowolniło mu odbieranie zapytania i przypadkiem odświeżył stronę, ale ty tego nie zrozumiesz i byś dawał warny za dp w twoim forum :].

[Arion]

a na pytanie moje odpowiecie co?

[Ranmus]

Nie. Na "jakieś problemy" sam sobie znajduj rozwiązanie, bo my nie jesteśmy jasnowidzami. Poza tym co to za kurs? Z internetu? z pdfa? Namiary!

[Arion]

Ten kurs to książka Delphi 6 dla każdego

[Nobody]

A może jakąś treść błędu byś podał? Cokolwiek, co może być przydatne...

[TuxMan]

Poprawiam ci kod ;)

 

Tutaj prawidłowy ;)

 

procedure TWebMain.URLComboBoxKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then { bo #13 jest kodem klawisza enter }
begin
Key := #0; { zerowanie, żeby nie powtarzała się ta sama procedura wiele razy }
if URLComboBox.Text<>"" then
begin
WebBrowser1.Navigate(URLComboBox.Text); { otwieranie strony }
end;
end;
procedure TWebMain.URLComboBoxDblClick(Sender: TObject);
var
C: Char;
begin
C := #13 { bo #13 jest kodem klawisza enter }
URLComboBoxKeyPress(Sender, C); { wykonanie procedury }
end;

 

Taki to prawidłowy kod ;)

[Arion]

nie działa a jutro w edicie dam screena

[Marmot]

Tuxman, w Delphi nie ma czegoś takiego jak "", dlatego Twój kod jest jak najbardziej błędny. Prawidłowy powinien teoretycznie wyglądać tak:

procedure TWebMain.URLComboBoxKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then { bo #13 jest kodem klawisza enter }
begin
Key := #0; { zerowanie, żeby nie powtarzała się ta sama procedura wiele razy }
if URLComboBox.Text<>'' then
begin
WebBrowser1.Navigate(URLComboBox.Text); { otwieranie strony }
end;
end;
procedure TWebMain.URLComboBoxDblClick(Sender: TObject);
var
C: Char;
begin
C := #13 { bo #13 jest kodem klawisza enter }
URLComboBoxKeyPress(Sender, C); { wykonanie procedury }
end;

[Arion]

Marmot ty poprostu skopiowałeś tamten kod!

[kryniak]

Marmot ty poprostu skopiowałeś tamten kod!

On tylko pozmieniał cudzysłowy na apostrofy, nie bulwersuj się :).