新入手DELPHI，以后就是这里的常客啦，请教问题先！

Question

本帖最后由 s27566 于 2010-07-26 10:51:45 编辑

Answer 1

没看明白
button的click事件中加入以下一行代码就行了
label1.visible=not label1.visble;如果非要在两个button里写就把
label1.visible=true;
label1.visible=false;
分别写在两个button的click事件里

Answer 2

隐藏用
self.label1.visible:=false;
显示用
self.label1.visible:=true;用timer显示系统时间
self.label1.caption:=formatdatetime('yyyy-MM-dd HH:mm:ss',now);

Answer 3

就是我写了个label1里面用计时器获取时间显示在上面我又加了两个按钮（隐藏、显示） 当我点隐藏按钮的时候 label1里面就什么都不显示我在Button1（隐藏）里面加了这么一段label1.caption :='';但是label1因为用了计时器一秒一更新，所以只是隐藏一秒后时间又被刷出来了所以我想用循环判断另外一个显示按钮，如果没有被点击，那label1.caption :='';这句话就一直执行！

Answer 4

啊  2楼正解   都不要判断什么循环了，我好笨哦   对DELPHI极度不了解呀不过还是想问下，我3楼说的那个循环，能实现吗？

Answer 5

还有，如果我想把显示和隐藏都集成在一个按钮上，可以实现吗？procedure TForm1.Button2Click(Sender: TObject);   //显示
begin
  self.label1.visible:=true;
end;procedure TForm1.Button3Click(Sender: TObject);   //隐藏
begin
  self.label1.visible:=false;
end;

Answer 6

procedure TFrm.Button1Change(Sender: TObject);
begin
  Button1.visible:=False;
  Button2.visible:=True;
  Timer1.Enabled:=True;
end;procedure TFrm.Button2Change(Sender: TObject);
begin
  Button2.visible:=False;
  Button1.visible:=True;
  Timer1.Enabled:=False;
end;procedure TFrm.Timer1Timer(Sender: TObject);
begin
  label1.caption:=formatdatetime('yyyy-MM-dd HH:mm:ss',now); 
end;事件中加入以下一行代码就行了
label1.visible=not label1.visble;如果非要在两个button里写就把
label1.visible=true;
label1.visible=false;
分别写在两个button的click事件里

Answer 7

比如，你是用timer这个组件来刷新的话，在你点击隐藏按钮的时候，在按钮事件里加上：
timer.visible:=False;
在显示按钮的事件上加上：
timer.visible:=True;

Answer 8

改成：procedure TForm1.Button2Click(Sender: TObject);
begin
  if Button2.caption='隐藏' then
  begin
    Button2.caption:='显示'
    self.label1.visible:=False;
  end else begin
    Button2.caption:='隐藏'
    self.label1.visible:=true;
  end;
end;