delphi学习点滴(四)

1.SetValue方法妙用

       系统默认生成的代码如下，但我们可以在这里增添更多的东西，比如针对Value判断执行一些相关操作，或者触发一些事件等。

procedure TForm1.SetTestPro(const Value: string);
begin
  FTestPro := Value;
end;

2.Image问题

      图片在窗体最大化时不能铺满界面，image放到panel，调整它们的Align属性就可以解决这个问题。

3.Panel拖动

       通过Panel加splitter可以实现Panel的拖动。

4.Checkbox.checked

        在执行Check的Checked属性赋值会执行Checkbox的OnClick事件，即Checkbox的OnClick事件具有OnChange类似的功能，所以可以在OnClick中写一些想要执行代码，例如：

procedure TForm1.chk1Click(Sender: TObject);
begin
  ShowMessage('Hi');
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
chk1.Checked := not  chk1.Checked;
e