delphi7 pagecontrol中动态建立控件用components无法读取到

xjplab 发布于 2016/05/30 17:54
阅读 408
收藏 0
在pagecontrol的tabsheet中动态生成TRichEdit:
var
	TextBox:trichedit;
begin
	textbox:=trichedit.Create(PageControl1.Pages[0]); //AOwer和parent为self的时候却可以被components读取到
	TextBox.Parent:=PageControl1.Pages[0];
	TextBox.Left:=2;
	TextBox.Top:=5;
	TextBox.Width:=200;
	TextBox.Height:=200;
	TextBox.Visible:=True;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i:Integer;
begin
	for i:=0 to ComponentCount -1 do
	begin
	     Memo1.Lines.Add(Components[i].Name); //无法读取richedit
	end;
end;
加载中
返回顶部
顶部