各位大大好，当我在一个checkbox中click时，会出现“click”这样的提示，但我想在button中去控制这同一个checkbox实现这样的功能时，却做不出来，不知是哪里写错了，下面是我的code，

procedure Tfm_zcb.Button2Click(Sender: TObject);
begin
CheckBox29Click(Sender);
end;
procedure Tfm_zcb.CheckBox29Click(Sender: TObject);
begin
if ActiveControl = CheckBox29 then
begin
Application.MessageBox('click','提示信息');
END;
end;

編輯記錄

你把它改成這樣試試：
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if CheckBox1.enabled=true then
begin
Application.MessageBox('click','提示信息');
END;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
CheckBox1Click(Sender);
end;
end.

原来是这样,谢谢blue36sea大大!

  if CheckBox1.enabled then
begin
....
应该也是可以的吧

------
断断续续的学了几年，还是一个初学者，永远支持Delphi !