stringe gore component

[korendon1971]

merhabalar.
programı çalıştırıp formdaki edite yazılan bilgiye gore component yaratmak istiyorum.
örneğin edite buton yazıldığında buton,listbox yazıldığında listbox yaratılsın.case comutuyla bütün componetleri siralamasi zor oluyor. Nasıl yapabilirim yardımcı olurmusunuz.TEŞEKKÜRLER....

[fatihtolgaata]

if edit1.text="edit" then
begin
NewEdit := TEdit.Create;
end
else if edit1.text="button" then
begin
NewButton := TButton.Create;
end;

[t-hex]

Hangi componentlerin yaratılmasına izin verecekseniz onları RegisterClass ile belirtin.

Kod: Tümünü seç

RegisterClass(TButton);
RegisterClass(TPanel);
RegisterClass(TEdit);

sonra da FindClass fonksiyonu ile o componentları yaratabilirsiniz.

Örnek:

Kod: Tümünü seç

var
 PersistentClass : TPersistentClass;
 ControlClass : TControlClass;
 Control : TControl;
begin
  PersistentClass := FindClass(Edit1.Text);
  if PersistentClass <>  nil then begin
     ControlClass := TControlClass(PersistentClass);
     Control := ControlClass.Create(self);
     Control.Parent := self;
     Control.Left := 100;
     Control.Top := 100;
     Control.Visible := true;
     Control.Name := Control.ClassName;
  end;
end;