用KeyPress吧
if Key = #13 then
begin
end;
就可以了
if Key = #13 then
begin
end;
就可以了
解决方案 »
- 请教-----------------如何把这个多线程攺成公共函数?---------------------------------
- COMBO BOX的消息机制
- 请各位高手指点,给我将DXF或DWG文件转化成为WMF或BMP文件的代码,要不能失真才行。
- 升星散分
- DLL中如何能够调用主程序中的函数?
- 高手帮忙??Install Shield打包时候,怎么样才能在程序安装的时候自动建立数据库?
- ShellExecute(handle, nil, Pchar(s), nil, nil, sw_shownormal);为什么在98下可以.在XP或2000下不行呢?
- 非技术性问题,不过请大家来给我个参考
- 请问LISTVIEW要想得到当前选择多行的内容,应该怎么写代码。我这样写只能得到一行。chechy(chechy) 请进,高手也可以
- 救命!程序太大了怎么办?!!!!!!!!!!!
- 十分钟内结贴
- 请教高手谁有在delphi中的压缩备份和解压缩恢复方面的东东,谢谢了!
begin
if Key=#13 then Button1.OnClick(Sender);
end;
begin
if Key = #13 then
Key := #0;end; procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_Return then
Perform(WM_NEXTDLGCTL,0,0);
end;
begin
if Key = #13 then
Key := #0;end; procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_Return then
Perform(WM_NEXTDLGCTL,0,0);
end;
首先将form的KeyPreview设置为True
然后在form的KeyPress时间中编写代码,if key=#13 then do sth;
这样表单内所有的控件都可以用!
我以前就是这样用的!
begin
if Key = #13 then
begin
DoSomething;
Key := #0;
end; procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = vk_Return then
Perform(WM_NEXTDLGCTL,0,0);
end;