在状态栏中显示检查框

实例说明

在设计程序界面时，为了规范界面，可以将一些组件放置在状态栏中，这样既能起到控制程序的作用，又能使界面和谐、美观。允许程序，在窗体下面的状态栏中加入了现实界面检查框，效果如图1.9所示。



图1.9在状态栏中显示检查框

技术要点

将某一个控件显示在另一个控件中可以通过修改控件的parent属性来实现。Parent属性用于确定控件在哪个容器控件上显示。本例需要将检查框显示在状态栏中，只要在窗体创建时，将检查框的Parent属性设置为状态栏，然后适当设置检查框在状态栏中的位置即可。

注意：Parent属性与Owner属性并不相同，Parent属性负责子控件的显示，Owner属性负责子控件的释放。

实现过程

1.新建一个工程，该工程会自动建立一个主窗体，默认该窗体的Name属性为Form1。

2.在窗体上添加TActionMainMenuBar、TStatusBar、TPanel、TCoolBar、TToolBar、Tspeed、Button和TImage组件。

3.为Image1添加一副图像，通过Picture属性为Image1组件加载一副图像。

4.主程序代码如下：

procedure TForm1.FormCreate(Sender: TObject);

begin

CheckBox1.Parent := StatusBar1;

CheckBox1.Left := StatusBar1.Width-CheckBox1.Width-50;

CheckBox1.Top := 4;

CheckBox1.Show;

StatusBar1.Panels[3].Text := '明日科技';

end;