Re: To Increase Speed of an application

Hi,

What about the changes below:

> procedure TFrmMain.frm1Click(Sender: TObject);
> var
>   I,j: Integer;
> begin
>   j:=0;
>   if ChkPlant() = false then
>    exit;
>   Screen.Cursor := crHourglass;
  {Checks to see if the FRM1 is not already created}
  if not assigned(FRM1) then
    {if FRM1 is not created, then create it}
    FRM1 := TFRM1.Create(Application);
>   FRM1.ShowModal ;
>   FRM1.free;
>   Screen.Cursor := crDefault;
> end;


-- 
Best regards,
 Daniel Rail
 Senior System Engineer
 ACCRA Group Inc. (www.accra.ca)
 ACCRA Med Software Inc. (www.filopto.com)


------------------------ 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/sO0ANB/LIdGAA/ySSFAA/i7folB/TM
---------------------------------------------------------------------~->

CodeCoffer - new Delphi code protection Tool!
http://www.delphicollection.com/public/CodeCoffer.htm
---------------------------------------------------------------
Unsubscribe:[email protected]
List owner:[email protected]
--------------------------------------------------------------- 

Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/