frame中只有一个checkbox1,form中有一个button1和panel1,form中动态调frame,按下button1,checkbox1.enable :=false;谁能帮我写下不

解决方案 »

  1.   

    建一个Frame1,和Form1,在Frame上放上CHECKBOX
    unit Unit1;interfaceuses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, StdCtrls, ExtCtrls,Unit2;//Unit2为TFrame1;type
      TForm1 = class(TForm)
        Panel1: TPanel;
        Button1: TButton;
        procedure FormCreate(Sender: TObject);
        procedure Button1Click(Sender: TObject);
      private
        { Private declarations }
      public
        Frame1:TFrame1;
      end;var
      Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
    begin
       Frame1 := TFrame1.Create(self);
       Frame1.Parent := Form1;
    end;procedure TForm1.Button1Click(Sender: TObject);
    begin
      Frame1.CheckBox1.Enabled := false;
    end;end.
      

  2.   

    Frame1.CheckBox1.Enabled := false;
      

  3.   

    正确调用frame后,只需要在button的click事件中写:
       frame.checkbox.enabled := not frame.checkbox.enabled;这样就可以实现点击button,checkbox的enabled会发生变化。