delphi StatusBar在状态栏中显示checkBox

//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

}

来自为知笔记(Wiz)