关于动态创建组件的问题
下面我创建一个TFrame类型的组件。可是在第1行有错误,说变量AreaFrame1可能已经变初始化,请问什么原因。
procedure TMainForm.TreeView1Change(Sender: TObject; Node: TTreeNode);
var
AreaFrame1:TAreaFrame;
begin
AreaFrame1.Create(PageControl1.ActivePage);//1
AreaFrame1.Name:='area' ;
AreaFrame1.Align:=alClient;
AreaFrame1.Parent:=PageControl1.ActivePage ;
AreaFrame1.Show ;
AreaFrame1.DBGrid1.Columns[0].FieldName:='area_no';
AreaFrame1.DBGrid1.Columns[1].FieldName:='area_name';
end;