关于动态创建组件的问题

ycguser 2003-01-20 05:32:04
下面我创建一个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;
...全文
26 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
huangrenguang 2003-01-20
  • 打赏
  • 举报
回复
就是AreaFrame1:=TAreaFrame.Create(PageControl1.ActivePage);吗!!!!
devil_li 2003-01-20
  • 打赏
  • 举报
回复
AreaFrame1:=TAreaFrame.Create(PageControl1.ActivePage);
ycguser 2003-01-20
  • 打赏
  • 举报
回复
谢谢了,很急

5,391

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧