明白activecontrol事件的帮帮忙啊

[纯净水o]

procedure TForm1.form2ButtonClick(Sender: TObject);
begin
  form2.CheckBox1.Checked := image1.Visible;
  form2.CheckBox2.Checked := image2.Visible;
  if (image2.height=75) and (image2.width=75) then
    form2.RadioGroup1.itemindex:=0
  else
    form2.RadioGroup1.ItemIndex:=1;
  if (form2.ShowModal = mrOk) then
    begin
      Image1.Visible := form2.CheckBox1.Checked;
      Image2.Visible := form2.CheckBox2.Checked;
      if form2.RadioGroup1.ItemIndex=0 then
        begin
        image2.Left:=110;
        image2.Top:=60;
        image2.Height:=75;
        image2.Width:=75;
        end
      else if form2.RadioGroup1.ItemIndex=1 then
        begin
        image2.Top:=15;
        image2.Left:=70;
        image2.Height:=150;
        image2.Width:=150;
        end;
    end;
end;

上面的程序是通过form1窗体上的一个按钮打开form2
form2窗体的作用是对form1窗体上2个image组建进行设置
procedure TForm1.form2ButtonClick这个事件在例子中位于activecontrol->onclick下

为什么我自己做的时候activecontrol却没有分支了呢？

[纯净水o]

帮帮忙啊 小弟的求知欲很强啊

[纯净水o]

代码可能有些问题 完整代码如下

procedure TForm1.ConfigureButtonClick(Sender: TObject);
begin
  ConfigureDialog.CheckBox1.Checked := image1.Visible;
  ConfigureDialog.CheckBox2.Checked := image2.Visible;
  if (image2.height=75) and (image2.width=75) then
    ConfigureDialog.RadioGroup1.itemindex:=0
  else
    ConfigureDialog.RadioGroup1.ItemIndex:=1;
  if (ConfigureDialog.ShowModal = mrOk) then
    begin
      Image1.Visible := ConfigureDialog.CheckBox1.Checked;
      Image2.Visible := ConfigureDialog.CheckBox2.Checked;
      if ConfigureDialog.RadioGroup1.ItemIndex=0 then
        begin
        image2.Left:=110;
        image2.Top:=60;
        image2.Height:=75;
        image2.Width:=75;
        end
      else if ConfigureDialog.RadioGroup1.ItemIndex=1 then
        begin
        image2.Top:=15;
        image2.Left:=70;
        image2.Height:=150;
        image2.Width:=150;
        end;
    end;
end;

[猴子先生大宝贝]

没看明白楼主要找什么东西……