Application.CreateForm yardım.. ÇÖZÜLDÜ..

[is_oz]

s.a. arkadaşlar,
benim sorunum
listboxta seçili olan text e göre tform2 den yararlanarak yeni form create etmek

yazmak istediğin kod şöle bişi

Application.CreateForm(TForm2,listbox1.items[listbox1.itemindex]);

asıl maksat eğer yoksa listboxta seçilen kayda göre form2 den create etmek

form2 yi ata class gibi kullanmak yani..
inş. anlatabilmişimdir..

yardım için tşk..

[sabanakman]

Kod: Tümünü seç

var YeniForm:TForm2; FormAdi:String;
begin
  if ListBox1.ItemIndex>=0 then begin
    FormAdi:=ListBox1.Items[ListBox1.ItemIndex];
    YeniForm:=TForm2(Application.FindComponent(FormAdi));
    if not Assigned(YeniForm) then begin
      Application.CreateForm(TForm2,YeniForm);
      YeniForm.Name:=FormAdi;
    end;
    with YeniForm do try
      .
      .
      .
      ShowModal;
    finally
      //Free;
    end;
  end;
end;