Enter Button

[Helmi]

Hallo,

wenn ich die Procedure etwas anders formatiere, dann fällt mir auf, dass
das Konstrukt nur läuft, wenn im Edit EdNickname und im Edit EdIp etwas
drin steht.
Ist eines von beiden leer, so wird die Procedure wieder beendet.

Die Abfrage if EdNickname.Text = '' then wird nie ausgeführt,
da er da nur hinkommt, wenn im Edit was drin steht

Delphi-Quellcode:

procedure TfrmMainForm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
TextFeld, IpField : string;
begin
TextFeld := EdNickname.Text;
IpField := EdIp.Text;
if (TextFeld <> '') and (IpField <> '') then 
  begin
    if Key = VK_RETURN then 
      begin
        ListShow;
        Serverstart;
        EdFields;
        frmMainForm.BtnAusführen.Enabled := false;
      end  
    else 
      if ListBox1.Count > 0 then 
        begin
          frmMainForm.BtnAusführen.Enabled := false;
        end 
      else 
        if EdNickname.Text = '' then 
          begin 
            frmMainForm.BtnAusführen.Enabled := false;
            Showmessage ('Please enter your nickname!!');
            Showmessage ('Please enter your IP- Adress!!');
            frmMainForm.BtnAusführen.Enabled := true;
          end;
  end;
end;