让Label1，在开始查询的时候显示，查询结束的时候隐藏
本帖最后由 u012430486 于 2013-10-19 17:27:25 编辑 我想让Label1，在开始查询的时候显示，查询结束的时候隐藏，下边是我的代码怎么也弄不成，是怎么回事
procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Visible:=true;
查询语句.....
//查询完成
Label1.Visible:=False;
label3.Caption:='正在查询第' + num + '条数据';
end;

end.

label3这里的数字也不跟着变，也是到最后查询完了才出
[解决办法]

num:=value;
if value=0 then 
 label1.visible:=false
eles
 begin
  Label1.Visible:=true;
  label1.Caption:='正在查询第' +inttostr( value) + '条数据';
 end;