BPL içinde bulunan formlar hk.

[cihan]

bir exe üzerinden dinamik olarak bir kütüpaneyi yüklüyorum.bu kütüpanede birden fazla form var ve bu formların içinde aşağıdaki gibi bir
tanımlamam var

Kod: Tümünü seç

function frm_1(const FormAdi: string;IBDB:TIBDatabase;IBTS: TIBTransaction): boolean;
begin
  frm_1:=Tfrm_1.Create(Application.MainForm);
  frm_1.JvStatusBar1.Panels.Items[0].Text:=FormAdi;
  frm_1.tan.Database:=IBDB;
  frm_1.tan.Transaction:=IBTS;
  frm_1.tan.Close;
  frm_1.tan.FetchAll;
  frm_1.tan.Open;
  result:=true;
end;
exports frm_1;

bu fonksiyon bpl içindeki bütün formlarımda var.
ben bunu çalıştırmak için anaprogramda aşağıdaki kodu kullanıyorum

Kod: Tümünü seç

procedure Tfrm_ana.SetFormadi(const Value: string);
var kart:function (const FormAdi:string;IBDB:TIBDatabase;IBTS:TIBTransaction): boolean;
begin
 @kart:= GetProcAddress(frm_ana.pkt,pansichar(value));
   if Assigned(kart) then kart(value,data,trans1)
   else
   showmessage('Form Yükleme Hatası');
   FFormadi := Value;
end;

menudeki buttonların clikine
formadı:='frm_1'; yazıp her formu çalıştırmayı deniyorum.

modül içinde bir form olursa sorunsuz çalışıyor.Ama birden fazla form olduğunda hataya düşüyor.

Bu sorunun çözümü için yardımlarınızı bekliyor şimdiden teşekkür ediyorum.