permasalahan anda sama yang pernah saya alami.
form mdichild yang disimpan dalam dll, maka dalam form utama harus
memanggil dllnya secara dinamis.
source code :
// procedure pemanggilan di form utama;
type
ShowChild : procedure(MApplication:TApplication;MForm:TForm); stdcall;
procedure Tform1.LoadDllFormMDIChild;
var
DllHandle : THandle;
ShowChildProc : ShowChild;
begin
DLLhandle := loadLibrary ('myDLL.dll');
@ShowChildProc := GerProcAddress(DLLHandle,'Shows');
if @ShowChildProc <> nil then
ShowChildProc(Application,Self);
end;
// source di dll unit;
uses
FormDllUnit;
Procedure Shows(MApplication:TApplication;MForm:TForm);
begin
Application := MApplication;
FormDll := TFormDll.Create(MForm);
FormDll.Style := fsMDIChild;
end;
namun masalah yang terjadi adalah. form utama tidak dapat mengenali form
mdi child yang ada (property mdichildcount = 0), meski form mdi child sudah
dibuat dan ditampilkan pada form utama.
> halo semua, minta pencerahan ni...
>
> saya mau buat applikasi MDI, tapi form child-nya disimpan didalam DLL.
> saya sudah coba buat satu applikasi berisi main form dan
> satu dll berisi form yang dimaksudkan sebagai anaknya. tapi
> ketika dipanggil keluar pesan error:
> "Cannot create form. No MDI forms are curently active"
>
> pertanyaanya bagaimana supaya form utama (fsMDForm) yang berada di
> applikasi induknya bisa dikenali di form (fsMDIChild) yg ada di dalam
> DLL tsb.
>
> terimakasih,
> pri
>
>
>
> ------------------------ Yahoo! Groups Sponsor
> ---------------------~--> Rent DVDs from home.
> Over 14,500 titles. Free Shipping
> & No Late Fees. Try Netflix for FREE!
> http://us.click.yahoo.com/I3w.vC/hP.FAA/3jkFAA/i7folB/TM
> ---------------------------------------------------------------------~->
>
> Berlangganan: [EMAIL PROTECTED]
> Stop Berlangganan: [EMAIL PROTECTED]
> Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
>
> Your use of Yahoo! Groups is subject to
> http://docs.yahoo.com/info/terms/
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Buy Ink Cartridges or Refill Kits for your HP, Epson, Canon or Lexmark
Printer at MyInks.com. Free s/h on orders $50 or more to the US & Canada.
http://www.c1tracking.com/l.asp?cid=5511
http://us.click.yahoo.com/mOAaAA/3exGAA/qnsNAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
