如何获取在所有控件上的键盘信息

[ygchu70]

一个窗口有很多控件，如何实现无论在哪个控件上键入的键盘信息都可以获得到阿，请帮忙

[hellolongbin]

Form1.KeyPreview:=true

[hellolongbin]

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.KeyPreview:=true;
end;

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
Form1.Caption:=key
end;

多放几个控件，试试吧

[ygchu70]

呵呵，当输入焦点在别的控件时就不好使阿，我想的效果是无论现在的输入焦点在哪个控件上，比如按回车时我都可以获取到，您说的方法仅仅是我在没有其他控件是在选中的状态下好使

[hellolongbin]

上面的方法可以捕获到回车啊

你在窗体上放几个edit和memo，然后Form1的KeyPreview设成true，在form的keypress事件里写

if key=#13 then ShowMessage('ok');
你会发现无论在哪个控件里敲回车都会show出message


keypress事件里面只要不是功能键比如ctrl alt F1之类都可以捕获，如果要捕获功能键用keydown事件