全局控件变量的创建

Question

我定义了一个全局变量
  
var
  gclblb : TCheckListBox;然后创建  gclblb := TCheckListBox.Create(self);  gclblb.Parent := FrmlbFile;  gClblb.Items.Clear();  //错误行，提示没有 parent ？？请各位帮我看看

Answer 1

gclblb.Parent := Self; //这么写吧！

Answer 2

FrmlbFile  这个窗体是你所写代码的窗体吗？？还是另外一个窗体？？

Answer 3

是写代码的窗体，不过gclblb定义在另一个单元中，是全局变量

Answer 4

var
  Form1: TForm1;
  cklb:Tchecklistbox;
implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
begin
  cklb:=Tchecklistbox.Create(self);
  cklb.Parent:=form1;

Answer 5

implementationuses Unit2;{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
begin
  gclblb := TCheckListBox.Create(self);
  gclblb.Parent := Form1;
  gclblb.Items.Add('ssll');
  gClblb.Items.Clear;
end;定义gclblb的form：
type
  TForm2 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form2: TForm2;
  gclblb : TCheckListBox;

Answer 6

谢谢两位，我找到问题了，原来是放错了地方，在窗体还没创建好，oncreate事件中

Answer 7

晕有许多事件最好不要写到CREATE里冇会经常出错的。