Enter-Taste bei SpinEdit

[alcaeus]

Logo, hier:

Delphi-Quellcode:

procedure Tf_PokerServer.b_StartServerClick(Sender: TObject);
begin
//DONE:Handle start listening
  if (se_Port.Value >= se_Port.MinValue) and (se_Port.Value <= se_Port.MaxValue) then
  begin
//....
  end //if (se_Port.Value >= se_Port.MinValue) and (se_Port.Value <= se_Port.MaxValue)
  else
    MessageDlg('Invalid port',mtError,[mbOk],0);
end; //procedure Tf_PokerServer.b_StartServerClick

procedure Tf_PokerServer.se_PortKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
//DONE: React to RETURN-Key
  if (Key = 13) then
    b_StarServerClick(Sender);
end; //procedure Tf_PokerServer.se_PortKeyUp

Ich hoffe der erklärt sich von selbst