Enter Button

[Frage95]

Also Wenn enter gedrückt wird sollen einige proceduren ausgeführt werden,

wenn ich dies teste, geht das nur beim 1 enter drücken wenn das feld leer ist also wenn die Felhler meldung angezeigt wird. Fülle ich das Edit Feld geschieht nichts und beim 2. mal enter drücken geschieht auch nichts.

hier nochmal das Beispiel

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;