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;