Hallo ich möchte beim drücken des Enter Buttons bestimme Abläufe ausführen ich habe das schon versucht doch das Ergebnis ist nicht das gewünschte
Delphi-Quellcode:
procedure TfrmMainForm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
TextFeld : string;
begin
TextFeld := EdNickname.Text;
if TextFeld <> '' then begin
if Key = VK_RETURN then begin
ListShow;
EdNickname.Enabled := false;
EdNickname.Color := clGray;
Serverstart;
frmMainForm.BtnAusführen.Enabled := true;
end else begin
frmMainForm.BtnAusführen.Enabled := false;
Showmessage ('Please enter your nickname!!');
frmMainForm.BtnAusführen.Enabled := true;
end;
end;
end;
end.