有关一个消息处理的问题?进者有分!在线等待！谢谢！

Question

现在有一Form,我想实现的就是在Form启动后,我按下回车键(及Enter健),Form截获这个消息,并执行Showmessage('OK'),请问怎么处理,谢谢!!

Answer 1

form好象有onkeypress事件啊，在里面写不久可以了

Answer 2

form1.KeyPreview:=true;在form的onkeypress里面写procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=#13 then
  begin
    showmessage('OK');
  end;
end;

Answer 3

不是，我是想用Form截获这个消息来处理?有办法帮我解决吗?

Answer 4

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
 if key=#13 then
  showmessage('ok');
end;

Answer 5

procedure keypress(var msq:Tmessage);message WM_KEYDOWN

Answer 6

form1.KeyPreview:=true;在form的onkeypress里面写procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
  if key=vk_return then
     showmessage('OK');
end;

Answer 7

如果用消息处理
我再写详细点吧
 原型：procedure mykeypress(var msg:Tmessage);message WM_KEYDOWN;
具体实现：
procedure TForm1.mykeypress(var msg: Tmessage);
begin
 if msg.WParam=13 then
  showmessage('ok');
end;

Answer 8

procedure keypress(var msq:Tmessage);message WM_KEYDOWN
procedure keypress(var msq:Tmessage);
begin
 if msg.wparam=13 then showmessage('ok');
end;
不好意思好像是抄了一遍