怎么设置MEMO1的快捷键啊?!我想用一快捷键来完成把memo1的内容保存进数据库.!(50分)

I

itfly

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么设置MEMO1的快捷键啊?!我想用一快捷键来完成把memo1的内容保存进数据库.!
 
这需要自己定义的
 
怎么定义
 
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
//如按F2
if Key=vk_F2 then
begin
把memo1的内容保存进数据库
end;
end;
 
呵呵,只能这样定义啊.呵呵,谢谢了/
 
顶部