setfocus; vor else !?!

[Trouble_Maker]

Hiho,
ich bin´s nochmal! Mein Problem (bzw. Code)

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var url : string;

    begin
    if edit1.text = '' then edit1.text := 'URL eintragen!!!'
    setfocus;

    else

    url := '' + Edit1.Text;
    WebBrowser1.Navigate(url);
    setfocus;

    end;

ich möchte, dass wenn ich keine URL in Edit1 eingegeben habe, dass dort der Cursor mit hilfe von "setfocus" hineingesetzt wird!!!
Aber ich darf ja kein ";" vor else stehen haben! Wie mach ich das dann am besten ?!?
danke

Trouble_Maker
[Edit=FuckRacism] Delphi-Syntax hinzugefügt. MfG Roman[/Edit]

[smax]

Ich würde nach if edit1.text = '' then edit1.text := 'URL eintragen!!!' ne 2. If-Anweisung machen!

[Daniel B]

Hallo,

entweder:

Delphi-Quellcode:

if then
Edit1.SetFocus
else //irgendwas

oder:

Delphi-Quellcode:

if then
begin
  Edit1.SetFocus;
end
else //sonstwas

Grüsse, Daniel

[Delphianer]

Hallo,

versuch's doch mal so:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var url : string;
begin
  if edit1.text = '' then begin
    edit1.text := 'URL eintragen!!!';
    edit1.setfocus;
  end
  else begin
    url := Edit1.Text;
    WebBrowser1.Navigate(url);
// hier weiß ich leider nicht, wohin der Fokus soll    
    setfocus;
  end;
end;

Viele Grüße
[Edit=FuckRacism]Delphi-Syntax hinzugefügt. MfG Roman[/Edit]

[Trouble_Maker]

hmm...
der Code von dir (Daniel)
funktioniert aber nich!!!

???

[Daniel B]

Was spricht den der komplizierer?

Grüsse, Daniel

[Trouble_Maker]

der sagt: " Operator oder Semikolon fehlt"

ich habe auch mal zu testzwecken das else ... entfernt! Aber die Meldung kommt immernoch

[Trouble_Maker]

hat sich schon erledigt!!!
Habs rausbekommen!

Trotzdem Danke für eure Mühe!

cu Trouble_Maker

[Daniel B]

Seltsam.

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin

  if Edit1.Text = '' then
    Edit1.SetFocus
  else;

  if Edit1.Text <> '' then
  begin
    Edit1.SetFocus;
  end
  else;

end;

Ist sogar getestet!

Grüsse, Daniel

[Pyr0cracker]

Zitat von Trouble_Maker:

Hiho,
ich bin´s nochmal! Mein Problem (bzw. Code)

ach, die beiden sachen liegen meist nich weit auseinander und sind manchmal zum verwechseln ähnlich