怎样做回车操作？

Question

如果是Button的话，你设置它的Default为True

Answer 1

如果是Button的话，你设置它的Default为True

Answer 2

procedure TTxinFm.TssjKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
    PostMessage(Tssj.Handle,Wm_KeyDown,vk_Tab,0);
end;

Answer 3

如果是要响应按钮，最简单的就是将按钮的default属性设成true

Answer 4

procedure TTxinFm.TssjKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if Key=13 then
    YourButton.Click();
end;这样跟你去点击按扭效果是一样的！

Answer 5

procedure TFormMain.Edit1Change(Sender: TObject);
begin
  ButtonOK.Default := True;
end;

Answer 6

在keypress中:
if key=#13 then
begin
end;

Answer 7

if Key=vk_return then
begin
  key:=0;
  Button1.Click(sender);
end;
到于别得键你看一下帮助吧！

Answer 8

在控件的KEYPRESS事件里面写
IF KEY=#13 THEN
DO....
或者  IF KEY=VK_RETURN  THEN
DO.....
ESC的键值是#27,退格键是#8

Answer 9

要看其他的键值可以在KEYPRESS事件中写:
SHOWMESSAGE(INTTOSTR(INT(KEY))

Answer 10

if key=#13 then
button1.click(sender);

Answer 11

设button.default:=true不用特别去判断，按了回车系统自动回调用button.onclick事件。在form的onkeydown或onkeypress中判断key=13或者key=#13也可以的，
因为回车的键盘扫描码是13，转换成onkeypress中的字符就是#13