Internet per Edit öffnen

[ringli]

Ich denke das OnChange-Event ist für deine Zwecke nicht das richtige. Wenn du mit der Auswertung von Tasten (z.B. die Enter-Taste) arbeiten willst, würde ich an deiner Stelle das OnKeyDown-Event des Formulars verwenden. Nicht vergessen in den Formulareigenschaften "KeyPreview" auf True zu setzen.

[GroZ]

Ok Danke.
Habe es probiert und bekomme die anweisung '[Fehler] Unit1.pas(38): Unbekannte Anweisung: 'X'

Delphi-Quellcode:

procedure TForm1.GooglesucheKeyDown(Sender: TObject;
var Key: Word;
  Shift: TShiftState);
    X  : string;
begin
  x := GoogleSuche.Text;
  if key = #13 then
  begin
  ShellExecute(handle, nil, Pchar('https://www.X.de'), nil, nil, SW_SHOW)
  end;
end;

end.

[Daniel]

Um 'X' als lokale Variable zu deklarieren, musst Du das Wort "var" davor schreiben.


Am Rande bemerkt: Du scheinst Deine ersten Schritte in Delphi zu machen. Das ist gut. Aber um Dir selbst einiges an Frust zu ersparen, solltest Du einen kurzen Blick z.B. in den Delphi Crash-Kurs (http://www.delphi-treff.de/tutorials...phi-crashkurs/) werfen. Dann bist sehr bald in der Lage, solche Fehler wie diesen auch selbst zu erkennen.

[BadenPower]

Und die nächste Antwort lautet:
VK_RETURN

Und danach kommt noch die Frage:
Warum erscheint nun "Die Webseite kann nicht angezeigt werden".

[GroZ]

ohh gott was nen fehler >.<
Und ich dachte ich krieg es langasam hin haha. Man lernt nie aus xD
Hab mir schon viele Tutorials angesehen und manche entsprechen nicht meinem Bildungsstand (Hallo Welt) und manche sind mir noch zu hoch . Ich komm aber immer besser klar

Bekomme jetzt diesen Fehler bei der Schleife für Enter:
[Fehler] Unit1.pas(41): Inkompatible Typen

[GroZ]

@BadenPower
The God! :Glaskugel:

[Sir Rufo]

Kleiner Tip:

Teile das in unterschiedliche Methoden auf, dann wird es erheblich übersichtlicher und dadurch einfacher zu verstehen/warten:

Delphi-Quellcode:

procedure TForm1.GooglesucheKeyDown(Sender: TObject;
var Key: Word;
  Shift: TShiftState);
begin
  if key = VK_RETURN then
  begin
    SucheBeiGoogle( GoogleSuche.Text );
  end;
end;

// Ich habe mal deine bisherige Lösung hierrein verwurstet
// Evtl. fällt dir jetzt auch dein Fehler auf ;o)
procedure TForm1.SucheBeiGoogle( const Suchbegriffe: string );
begin
  ShellExecute(handle, nil, Pchar('https://www.' + Suchbegriffe + '.de'), nil, nil, SW_SHOW);
end;

[Mavarik]

Leute seit Ihr heute morgen wieder gemein...

Zitat von Sir Rufo:

Delphi-Quellcode:

// Ich habe mal deine bisherige Lösung hierrein verwurstet
// Evtl. fällt dir jetzt auch dein Fehler auf ;o)
procedure TForm1.SucheBeiGoogle( const Suchbegriffe: string );
begin
  ShellExecute(handle, nil, Pchar('https://www.google.de/?gws_rd=ssl#q=' + Suchbegriffe), nil, nil, SW_SHOW);
end;

Wir ja noch schlimm genug, wenn es mehr als ein Suchbegriff ist...