Kod: Tümünü seç
var
dizi: TStringList;
procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterClasses([TButton,TEdit,Tform,TLabel]); //kullanabileceğin class ları burda bi kaydettirmen lazım
end;
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
var
CClass : TPersistentClass;
PTI : PTypeInfo;
AControl : TControl;
begin
for i :=0 to dizi.count - 1 do
begin
CClass := GetClass(dizi[i]);
if CClass <>nil then
begin
AControl := TControl(TControlClass(CClass).Create(Self));
with AControl do
begin
Parent := Self;
Width := 50;
Height := 30;
end;
Inc(Id);
end else MessageDlg('Class kaydedilmemiş', mtWarning, [mbOk], 0);
end;
end;
burda TControl olacak create ediyor gibi gelebilir sana ama sonuçta buton edit label gibi vcl componentlerinin hepsinin atası TControldür bu getclass fonksiyonu ile diziden aldığı değere bakar eğer applicationda bu class register edilmişse belirtilen componenti create eder kolay gelsin..
bunu bi test et 1 aydır netten uzağım cafeden bağlanıyorum telefon hattımızda sorun varmış telekom bir aydır gelmedi hala
haa bu arada arkadaşın biri FindComponenti kullan demiş create edilmemiş componenti findcomponent bulamaz onu yazmayı unutmuşum
yapmak istediğim şöyle bişey. bir tür derleyici yazıyorum. formun çalışma anında sayfaya editbox, button... bileşenler ekliyorum ve her eklediğim bileşeni bir dizide tutuyorum. daha sonra diziden bileşeni çağırıyorum. mesela dizinin birinci elemenının left değerini değiştirecem ve dizinin birinci elemanı buton olsun. butonun left değerini değiştirmek için şöyle bişey yazdığımda şu işlemi yapmasını istiyorum. 
[/code]
