可用name来判,如: procedure TForm1.Button1Click(Sender: TObject); var t:tedit; i:integer; begin t:=tedit.Create(self); t.Name:='myedit' ; t.Parent:=self; // .... for i:=0 to ComponentCount-1 do begin if Components[i].Name='myedit' then begin ShowMessage('已创建'); break; end; end; end;
procedure TForm1.Button1Click(Sender: TObject);
var
t:tedit;
i:integer;
begin
t:=tedit.Create(self);
t.Name:='myedit' ;
t.Parent:=self;
// ....
for i:=0 to ComponentCount-1 do
begin
if Components[i].Name='myedit' then
begin
ShowMessage('已创建');
break;
end;
end;
end;