在SetNUM(Value:integer)事件中添加 if value=0 then label1.visible:=false eles begin Label1.Visible:=true; label1.Caption:='正在查询第' +inttostr( num) + '条数据'; end; 查询结束 把num置为0 就又隐藏了
错了 应是 num:=value; if value=0 then label1.visible:=false eles begin Label1.Visible:=true; label1.Caption:='正在查询第' +inttostr( value) + '条数据'; end;
你想让label3跟着变,那就把这句label3.Caption:='正在查询第' + num + '条数据';放到查询语句里面去。
你这样查询结束 才写一句 结果当然是最后查询完了才出
/查询完成
Label1.Visible:=False;这句去掉 只有查寻完才显示出来。
if value=0 then
label1.visible:=false
eles
begin
Label1.Visible:=true;
label1.Caption:='正在查询第' +inttostr( num) + '条数据';
end;
查询结束 把num置为0 就又隐藏了
num:=value;
if value=0 then
label1.visible:=false
eles
begin
Label1.Visible:=true;
label1.Caption:='正在查询第' +inttostr( value) + '条数据';
end;