Coba anda ubah spt ini:
Procedure mnuBrgClick(Sender:TObject) ;
Var i:integer;
ada:boolean;
Begin
ada:=False;
for i:=MDIChildCount - 1 downto 0 do
if MDIChildren[i].ClassName='FBrg' then ada:=True;
if not ada then
FBrg = TFBrg.Create(Self);
FBrg.Show;
End;
Salam,
Fadjar Hamidi
PostgreSQL-Tools: http://www.csahome.com/fhf/
> -----Original Message-----
> From: William [mailto:[EMAIL PROTECTED]
> Sent: 30 Juni 2003 8:02
> To: [EMAIL PROTECTED]
> Subject: [Delphindo] MDI Application
>
> Procedure mnuBrgClick(Sender:TObject) ;
> try
> FBrg(Nama Form).Show ;
> except
> FBrg = TFBrg.Create(Self) ;
> FBrg.Show ;
> end ;
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Looking for the latest Free IT White Papers?
Visit SearchNetworking.com to access over 500 white papers.
Get instant access at SearchNetworking.com Today
http://us.click.yahoo.com/8lAzoD/OLNGAA/witMAA/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/
