可以这样
if 组件1.setfocus then
begin
.....
end
else if 组件2.Setfocus then
begin
.....
end
if 组件1.setfocus then
begin
.....
end
else if 组件2.Setfocus then
begin
.....
end
解决方案 »
- 删除模块的疑问?
- Missing operator or semicolon
- 问个三层的问题,在应用层ADOQuery中写SQL语句,与在客户端ClientDataSet中写SQL语有什么区别没有?
- DELPHI编释运行后,关闭程序会弹出CPU窗口,如何关闭该窗口?
- 使用ADO+Master/Detail+BatchUpdate+事务,为什么master可以更新回数据库中而detail不能?
- 如何继承一个tabSheet中的东东
- 一个像SPY++的功能..
- Dll中的窗体的FormStyle能为fsMDIChild吗?
- DirectoryOutline的问题。请大家帮帮忙
- 强烈不满!!!!csdn的速度太慢了!!!大家都来提意见!!!
- 简单问题:类里面的属性可以定义默认值吗?
- 谁知道怎么用dephi传输图片文件(40)
A1:=A2;
A2:=当前激活控件标识;
则A1就代表了前一个激活的控件。