delphi中，我想按字母a，触发一个事件，怎么写？

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key  = #65 then application.MessageBox('你人品不好，请按“确定”','提示',16);
end;

这代码怎么行呢？

追问：试了，不行啊

答案：在Form窗口添加一个事件，代码中会自动添加
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin

end;

然后在begin和end中间写上
if key  = #65 then application.MessageBox('你人品不好，请按“确定”','提示',16);
就可以了

其他：你选到设计视图，点击Form，然后在属性窗口里，点到事件，双击KeyPress，然后在begin...end
之间，写上if key  = #65 then application.MessageBox('你人品不好，请按“确定”','提示',16); 就可以了 form2.show;
form1.Visible :=false;
父窗体不要关闭，不可视就可以了
9月 

上一个：delphi ,函数完善。200分。详细需求已经给出。11111111111111
下一个：现在学delphi就业前景怎么样啊。。。求解^_^帮忙分析下。。。