delphi 怎么让 Label 显示和隐藏?
delphi 怎么让 Label 显示和隐藏?
主要用到Label控件的Visible属性。
Visible 为true则显示
Visible 为false则隐藏
做法:
1、在窗体上,拖入Label控件两个Button按钮控件,先将Label Visible属性设置为 false
2、显示按钮点击事件里 让Label1.Visible := true
3、隐藏按钮点击事件里 让Label1.Visible := false
案例代码:
unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls; type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Label1: TLabel; Button3: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); procedure Button3Click(Sender: TObject); procedure FormCreate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin Label1.Visible := true; //Label1显示 end; procedure TForm1.Button2Click(Sender: TObject); begin Label1.Visible := false; //Labell隐藏 end; procedure TForm1.Button3Click(Sender: TObject); begin Application.Terminate; //结束程序 end;