在lostfocus事件中判断就好了。
解决方案 »
- 字符修改
- Delphi动态数组做参数的问题
- adotable adoquery adodataset有什么区别?我该用哪一个呀?
- 坐标转换 数据求!
- 大家知道这是个什么组件吗?可以自动隐藏的
- 请教各位:当有多个对象引用指向同一对象时,如何判断对象是否已销毁?
- 现有一个mdi主窗口,我在内部新建了很多子窗口,如果得到用户现在所选择的是那个子窗口呢?
- foxpro2.x 的 *.dbf 文件 导入到table里 然后在strgride中显示出来,为什么中文都是乱码呢?
- 急问题90,答对送分
- 关于ADO连接ORACLE的问题 ORA-00905: 缺少关键字
- 如何在程序中给系统一个鼠标中键按下的信号?请给出详细的源代码
- 用delphi怎样表示当前路径?
var
I: Integer;
begin
if Button1.Focused then begin
{}
Button1.Click;
end else if not TryStrToInt(TEdit(Sender).Text, I) then
TEdit(Sender).SetFocus;
end;
var
I: Integer;
begin
if Button1.Focused then begin
{}
Button1.Click;
end else if not TryStrToInt(TEdit(Sender).Text, I) then
TEdit(Sender).SetFocus;
end;
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
if ActiveControl = Edit1 then
ShowMessage('ok');
end;