怎么使一个按钮具有闪烁效果????

Question

是这样的 :我要使某一个按钮一直在闪烁,就好像有一个无形的鼠标一直在点击该按钮的那种效果!!!!
大侠帮忙!!
还有,怎么查询数据库中的时间类型的字段值.????

Answer 1

1.在定时器里改变颜色
2.Query.ParamByName('时间').AsDateTime:=now;

Answer 2

定时器1svar i:word;
procedure Timer1.Timer1Timer;
begin
i:=i+1;
button.Enabled := Boolean(i mod 2);
if i>=65535 then i:=0
end;