Assalamualaikum wr wb
saya pernah dapet dari internet, metode load Form MDIChild dari Dll.
saya coba udah bisa dan udah keluar form childnya, tapi ada yang kurang.
Properti MDIChildCount dari FormMDI Induk = 0. seolah - olah tidak ada MDI
Child yang di buat.
mohon petunjuknya !!
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;
kurang lebih begini source nya!
Terima Kasih
Wassalamualaikum wr wb
--
Begitu mudah dan cepatnya menggelombangkan air, namun begitu susah dan
lamanya untuk menenangkannya.
------------------------ 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/
