home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 11 Util / 11-Util.zip / runonce.zip / RO_Test / RO_Win.PAS < prev   
Pascal/Delphi Source File  |  1998-02-21  |  617b  |  34 lines
  1. Unit RO_Win;
  2.  
  3. Interface
  4.  
  5. Uses
  6.   Classes, Forms, Graphics, Buttons, RunOnce;
  7.  
  8. Type
  9.   TROTestWin = Class (TForm)
  10.     BitBtn1: TBitBtn;
  11.     RunOnce1: TRunOnce;
  12.     Procedure ROTestWinOnShow (Sender: TObject);
  13.   Private
  14.     {Insert private declarations here}
  15.   Public
  16.     {Insert public declarations here}
  17.   End;
  18.  
  19. Var
  20.   ROTestWin: TROTestWin;
  21.  
  22. Implementation
  23.  
  24. Procedure TROTestWin.ROTestWinOnShow (Sender: TObject);
  25. Begin
  26.  IF RunOnce1.FirstInst
  27.   THEN Caption := Caption + ' - Original';
  28.  RunOnce1.CheckOnly;
  29. End;
  30.  
  31. Initialization
  32.   RegisterClasses ([TROTestWin, TBitBtn, TRunOnce]);
  33. End.
  34.