ComboBox+Tedit=Url?

[Dave729]

Hallo, ich habe mal eine Frage:
Ich möchte das man über Tedit einen Wort eingibt, dann in der ComboBox eine Suchmaschine auswählt und das man dann halt gleich via Firefox oder IExplorer verbunden wird.
Problem: Über Tedit, ohne ComboBox habe ich es schon hinbekommen, mit dem Befehl:

Delphi-Quellcode:

procedure TForm1.Button3Click(Sender: TObject);
var
url: string;
begin
  url := ('http://www.google.de/search?q=' + Edit3.Text);
  begin
    ShellExecute(Handle,
               'open',
               PAnsiChar(url),
               nil,
               nil,
               SW_SHOW);
  end;
end;

Aber über eine ComboBox weiss ich es nicht. Es darf ja in der Box auch nicht "http://www.google.de/search?q=" stehen sondern nur Google.
Wie kann man das machen, kann mir da jemand helfen?
Ich habe Delphi 3. Ok. ist schon etwas älter, aber ich hab lange nicht mehr damit gearbeitet.
MfG Dave

[haentschman]

Hallo...

kleine Anregungen:

- ein Variable beliebigen Namens (z.B. SuchMaschine: String)
- in der Combobox hinterlegst du die Suchmaschinen
- über den ItemIndex und einer case Anweisung weist du der Variable den "Link zur Suchmaschine" zu
- in der ShellExecute verbindest du die Variable und dein Edit Feld

[Dave729]

Jo, wenn ich wüsste wie das nochmal ging. Hab leider fast keinen Plan mehr davon. Kannst du mir da mal einen Code zusenden?
MfG Dave

[Helmi]

Hallo,

haentschmans Lösung in Codeform:

Delphi-Quellcode:

var
  Suchmaschine: String;

begin
  case ComboBox1.ItemIndex of
    0: Suchmaschine := {hier die URL für Google};
    1: Suchmaschine := {hier die URL für Yahoo};
  end;

  url := Suchmaschine + Edit3.Text);
end;

In der ComboBox müsste drinstehen:
1. Eintrag = Google
2. Eintrag = Yahoo

Ich hoffe ich konnte etwas helfen.

[haentschman]

...Spielverderber

[Dave729]

Jo, danke. Genau das habsch gebraucht. Wenn mein Tool fertig is, dann poste ich es hier rein, wird denk ich mal heut abend noch. Thx

Ps.: Bitte den Tread noch auf lassen, da ich das Tool heute abend posten möchte

[Dave729]

So, habs jetzte erstmal fertig gemacht.
Ich muss aber noch ein paar Feinheiten machen und noch mehr Links sammeln.
MfG Dave

P.s.: Vielen Dank nochmal

[Dave729]

So, hab jetzt alles ein bissel verbessert

[Fussball-Robby]

Mach doch einen Thread in der Sparte Freeware auf, wo du dein Programm vorstellst. DOrt kannst du neue Versionen immer im 1. Beitrag hochladen und eventuell laden es mehr Leute runter..

[Dave729]

Zitat von Fussball-Robby:

Mach doch einen Thread in der Sparte Freeware auf, wo du dein Programm vorstellst. DOrt kannst du neue Versionen immer im 1. Beitrag hochladen und eventuell laden es mehr Leute runter..

Danke für den Tipp. Das Mache ich gleich mal