isimle form çağırma

[nfazakli]

Merhaba,

Programda kullandığım formlar için arama formu yapmak istiyorum. fakat her formun arama formu farklı olacağı için formları isimle çağırmak istiyorum. Örneğin :

Kod: Tümünü seç

public
procedure RunSearchForm;
published
property SearchForm:TComponentName;

Acaba böyle bir arama formu uygulamasını nasıl yapabilirim ismini belirttiğim formu nasıl create edebilirim.

Teşekkür Ederim.

[gkimirti]

soyle bir yol izleyebilirsin.
Bir base form olusturup buna
FSearchForm:TForm protected özelligini ekleyelim.
protected bir Search isimli abstract procedure tanımlayalım...
simdi bunları kod olarak :

Kod: Tümünü seç

  TBaseForm = class(TForm)
  protected
    FSearchForm:TForm;
    procedure Search;virtual;

ve Ctrl-C ye basarsanız Search procedurunun govdesini olusturacaktır.
buraya arama formunu create eden, yerini ayarlayan
tum formlar icin ortak ozellikleri ayarlayan kodu girin
hatta KeyPreview true yapıp
bir kısayol ile arama formu cagıracak kodu bile ekleyebilirsiniz.

diger butun formların bu baseform dan tureyecek

Kod: Tümünü seç

TStokFormu=class(TBaseForm)
protected
    procedure Search;override;

ve Ctrl-C ye basarsanız Search procedurunun govdesini olusturacaktır.

Kod: Tümünü seç

procedure TStokFormu.Search;
begin
  inherited;
  //Bu forma ozel arama islemleri kodlarını yazınız
end;

bu sekilde Search procedurunu her form icin yazarak ama
cagırmak icin ekstra bir kod yazmadan (form isimleri ile ugrasmadan)
bu isi becerebiliriz.

[nfazakli]

çok teşekkür ederim. şu anda üzerinde çalışıyorum. inşallah çözeceğim..

[nfazakli]

çözümü buldum

Kod: Tümünü seç

var
  FormName: string;
  AForm: TForm; 
begin
  Application.CreateForm(TFormClass(FindClass('T'+FormName)), AForm);
end; 

//fakat 

initialization
 RegisterClass(TForm2); 
end. 

//olması gerekiyor muş.. 

[vedatkaba]

soyle bir yol izleyebilirsin.
Bir base form olusturup buna
FSearchForm:TForm protected özelligini ekleyelim.
protected bir Search isimli abstract procedure tanımlayalım...
simdi bunları kod olarak :

Kod: Tümünü seç

  TBaseForm = class(TForm)
  protected
    FSearchForm:TForm;
    procedure Search;virtual;

ve Ctrl-C ye basarsanız Search procedurunun govdesini olusturacaktır.
buraya arama formunu create eden, yerini ayarlayan
tum formlar icin ortak ozellikleri ayarlayan kodu girin
hatta KeyPreview true yapıp
bir kısayol ile arama formu cagıracak kodu bile ekleyebilirsiniz.

diger butun formların bu baseform dan tureyecek

Kod: Tümünü seç

TStokFormu=class(TBaseForm)
protected
    procedure Search;override;

ve Ctrl-C ye basarsanız Search procedurunun govdesini olusturacaktır.

Kod: Tümünü seç

procedure TStokFormu.Search;
begin
  inherited;
  //Bu forma ozel arama islemleri kodlarını yazınız
end;

bu sekilde Search procedurunu her form icin yazarak ama
cagırmak icin ekstra bir kod yazmadan (form isimleri ile ugrasmadan)
bu isi becerebiliriz.

Ben bunu yapamadım olmadı acaba hatamı yaptım yardımlarınızı bekliyorum arkadaşlar.