home *** CD-ROM | disk | FTP | other *** search
/ PC Format Collection 48 / SENT14D.ISO / tech / delphi / disk14 / doc.pak / MASKTEXT.INT < prev    next >
Encoding:
Text File  |  1995-08-24  |  1.2 KB  |  47 lines
  1.  
  2. {*******************************************************}
  3. {                                                       }
  4. {       Delphi Visual Component Library                 }
  5. {                                                       }
  6. {       Copyright (c) 1995 Borland International        }
  7. {                                                       }
  8. {*******************************************************}
  9.  
  10. unit MaskText;
  11.  
  12. interface
  13.  
  14. uses WinTypes, WinProcs, Classes, Graphics, Forms, Controls, StdCtrls,
  15.      Buttons, DsgnIntf, Mask;
  16.  
  17. type
  18.  
  19. { TMaskTextProperty
  20.   Property editor for the Caption and Text properties.  Removes auto-update
  21.   feature of normal text property to allow validation. }
  22.  
  23.   TMaskTextProperty = class(TStringProperty)
  24.   public
  25.     function GetAttributes: TPropertyAttributes; override;
  26.     procedure Edit; override;
  27.   end;
  28.  
  29. type
  30.   TMaskTextForm = class(TForm)
  31.     OKBtn: TBitBtn;
  32.     CancelBtn: TBitBtn;
  33.     HelpBtn: TBitBtn;
  34.     Label3:    TLabel;
  35.     TestEdit:  TMaskEdit;
  36.     Label1: TLabel;
  37.     EditMask: TLabel;
  38.     procedure FormCreate(Sender: TObject);
  39.   public
  40.     { Public declarations }
  41.   end;
  42.  
  43. var
  44.   MaskTextForm: TMaskTextForm;
  45.  
  46. implementation
  47.