procedure TForm1.Button1Click(Sender: TObject);
var
templabel:tlabel;
begin
templabel:=tlabel.Create(application);
templabel.Name := 'jh';
templabel.Parent := form1;
templabel.Enabled := true;end;procedure TForm1.Button2Click(Sender: TObject);
var
tp:tlabel;
begin
tp:=FindComponent('jh') as tlabel;
showmessage (tp.name);
end;找不到!可是找一个静态建立的(托控件到窗口)就可以!为什么?
var
templabel:tlabel;
begin
templabel:=tlabel.Create(application);
templabel.Name := 'jh';
templabel.Parent := form1;
templabel.Enabled := true;end;procedure TForm1.Button2Click(Sender: TObject);
var
tp:tlabel;
begin
tp:=FindComponent('jh') as tlabel;
showmessage (tp.name);
end;找不到!可是找一个静态建立的(托控件到窗口)就可以!为什么?
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货