procedure TLoginFrm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if key = 27 then ExitBtn.Click; //27是ESC的键值
end;
Shift: TShiftState);
begin
if key = 27 then ExitBtn.Click; //27是ESC的键值
end;
解决方案 »
- 咨询往oracle和sql server2000数据库插入数据问题
- treeview递归问题
- stringtest:=Table1.FieldValues['A1'].AsString; 出现了"variant does not reference an automation object",这个错误?
- 求助!用TDCOMConnection组件来连结远程数据模块
- 请教一个看似简单,却困扰我很久的问题?
- TMonthCalendar能不能实现不连续的多选?
- 再线等待-李维:分布式多层电子商务的第一例子
- 编译提示找不到控件
- delphi7组件大全的下载
- 关于数据字段的查询问题:有一DELPHI程序,操作一Paradox数据库,想进行日期字段的查询,察看了原来的帖子照做,但是仍然不行,请各位指点.
- 那里有websnap的session的详细介绍
- Adoquery没有Query.cachedupdate这样的属性?
procedure TLoginFrm.ExitBtnClick(Sender: TObject);
begin
application.Terminate;
end;