//StatusBar在状态栏中显示checkBox
procedure TForm1.CheckBox1Click(Sender:
TObject);
begin
Image1.Visible
:= not
CheckBox1.Checked;
end;
procedure TForm1.FormCreate(Sender:
TObject);
begin
CheckBox1.Parent := StatusBar1;
CheckBox1.Left := 0;
CheckBox1.Top := 4;
end;
//完成
1 运行时设置控件的位置
2 动态控制控件的显示
//在状态栏中显示checkBox
{
将某一个控件显示在另一个控件中可以通过修改控件的Parent属性来实现。
Parent属性用于确定控件在哪个容器控件上显示。
StatusBar1
CheckBox1
}