如何操纵动态创建的控件
procedure TForm1.OpenFile(FileName: String);//单击Open菜单项
var
NewSheet:TTabSheet;
NewEdit:TRichEdit;
begin
...
NewSheet:=TTabSheet.Create(self);
NewSheet.Caption:=ExtractFileName(FileName);
NewSheet.PageControl:=PageControl1;
NewEdit:=TRichEdit.Create(self);
TControl(NewEdit).Parent:=NewSheet;
NewEdit.Align:=alClient;
NewEdit.Font:=DefFont;
NewEdit.ScrollBars:=ssVertical;
NewEdit.HideScrollBars:=false;
NewEdit.PopupMenu:=PopupMenu2;
//NewEdit.WordWrap:=false;
NewEdit.Lines.LoadFromFile(FileName);
PageControl1.ActivePage:=NewSheet;
...
end;
我可以通过PageControl1.ActivePage得到所有的TabSheet对象,
请问我如何在其他句柄中操作某个RichEdit呢?