AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Internet per Edit öffnen

Ein Thema von GroZ · begonnen am 10. Aug 2015 · letzter Beitrag vom 12. Aug 2015
Antwort Antwort
ringli

Registriert seit: 7. Okt 2004
510 Beiträge
 
Delphi 11 Alexandria
 
#1

AW: Internet per Edit öffnen

  Alt 10. Aug 2015, 09:39
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.
  Mit Zitat antworten Zitat
GroZ

Registriert seit: 6. Jul 2015
Ort: Harz
167 Beiträge
 
Delphi 7 Personal
 
#2

AW: Internet per Edit öffnen

  Alt 10. Aug 2015, 09:49
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.
Julian
  Mit Zitat antworten Zitat
Daniel
(Co-Admin)

Registriert seit: 30. Mai 2002
Ort: Hamburg
13.920 Beiträge
 
Delphi 10.4 Sydney
 
#3

AW: Internet per Edit öffnen

  Alt 10. Aug 2015, 09:52
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.
Daniel R. Wolf
mit Grüßen aus Hamburg
  Mit Zitat antworten Zitat
BadenPower

Registriert seit: 17. Jun 2009
616 Beiträge
 
#4

AW: Internet per Edit öffnen

  Alt 10. Aug 2015, 09:57
Und die nächste Antwort lautet:
VK_RETURN

Und danach kommt noch die Frage:
Warum erscheint nun "Die Webseite kann nicht angezeigt werden".
Programmieren ist die Kunst aus Nullen und Einsen etwas sinnvollen zu gestalten.
Der bessere Künstler ist allerdings der Anwender, denn dieser findet Fehler, welche sich der Programmierer nicht vorstellen konnte.

Geändert von BadenPower (10. Aug 2015 um 09:59 Uhr)
  Mit Zitat antworten Zitat
GroZ

Registriert seit: 6. Jul 2015
Ort: Harz
167 Beiträge
 
Delphi 7 Personal
 
#5

AW: Internet per Edit öffnen

  Alt 10. Aug 2015, 09:59
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
Julian

Geändert von GroZ (10. Aug 2015 um 10:01 Uhr) Grund: Kann gelöscht werden
  Mit Zitat antworten Zitat
GroZ

Registriert seit: 6. Jul 2015
Ort: Harz
167 Beiträge
 
Delphi 7 Personal
 
#6

AW: Internet per Edit öffnen

  Alt 10. Aug 2015, 10:00
@BadenPower
The God! :Glaskugel:
Julian
  Mit Zitat antworten Zitat
Benutzerbild von Sir Rufo
Sir Rufo

Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
 
Delphi 10 Seattle Enterprise
 
#7

AW: Internet per Edit öffnen

  Alt 10. Aug 2015, 12:25
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;
Kaum macht man's richtig - schon funktioniert's
Zertifikat: Sir Rufo (Fingerprint: ‎ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
  Mit Zitat antworten Zitat
Benutzerbild von Mavarik
Mavarik

Registriert seit: 9. Feb 2006
Ort: Stolberg (Rhld)
4.152 Beiträge
 
Delphi 10.3 Rio
 
#8

AW: Internet per Edit öffnen

  Alt 10. Aug 2015, 12:54
Leute seit Ihr heute morgen wieder gemein...

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...
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:56 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz