home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 September / Chip_2001-09_cd1.bin / zkuste / delphi / kolekce / d56 / RMCTL.ZIP / rmBaseEdit.pas < prev    next >
Pascal/Delphi Source File  |  2001-06-22  |  1KB  |  50 lines
  1. {================================================================================
  2. Copyright (C) 1997-2001 Mills Enterprise
  3.  
  4. Unit     : rmBaseEdit
  5. Purpose  : Base Edit class used by other "rmEdit" controls.
  6. Date     : 01-15-2000
  7. Author   : Ryan J. Mills
  8. Version  : 1.80
  9. ================================================================================}
  10.  
  11. unit rmBaseEdit;
  12.  
  13. interface
  14.  
  15. {$I CompilerDefines.INC}
  16.  
  17. uses Messages, Windows, Classes, StdCtrls;
  18.  
  19. type
  20.   TrmCustomEdit = class(TCustomEdit)
  21.   private
  22.     fWantTabs: boolean;
  23.     procedure WMGetDlgCode(var Message: TWMGetDlgCode); message WM_GETDLGCODE;
  24.   public
  25.     constructor Create(AOwner:TComponent); override;
  26.     property BorderStyle;
  27.     property ReadOnly;
  28.     property WantTabs:boolean read fWantTabs write fWantTabs default false;
  29.   end;
  30.  
  31. implementation
  32.  
  33. { TrmCustomEdit }
  34.  
  35. procedure TrmCustomEdit.WMGetDlgCode(var Message: TWMGetDlgCode);
  36. begin
  37.    inherited;
  38.  
  39.    if fWantTabs then
  40.       Message.Result := Message.Result or DLGC_WANTTAB;
  41. end;
  42.  
  43. constructor TrmCustomEdit.Create(AOwner: TComponent);
  44. begin
  45.   inherited;
  46.   fWantTabs := false;
  47. end;
  48.  
  49. end.
  50.