来,我来说两句,其实这个问题很简单,可以包装成控件,也可无,三下两下搞定...
方法:
1.放一个TApplication组件
2.找到TApplication.OnIdle事件
3.然后这样写,我用dbedit1来举例:
procedure TForm1.ApplicationEvents1Idle(Sender: TObject;
var Done: Boolean);
var
a,b: pchar;
begin
if not dbedit1.Focused then
begin
a := pchar(formatdatetime('yyyy-mm-dd', now));
b := allocmem(255);
getwindowtext(dbedit1.Handle, b, 255);
if trim(b) <> trim(a) then
setwindowtext(dbedit1.Handle, a);
freemem(b);
end;
end;
保证合楼主的胃口
