PasswordEdit.pas 2.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114
  1. unit PasswordEdit;
  2. interface
  3. uses
  4. StdCtrls, Classes, Controls;
  5. type
  6. TPasswordEdit = class(TCustomEdit)
  7. protected
  8. FPassword: Boolean;
  9. procedure CreateParams(var Params: TCreateParams); override;
  10. procedure SetPassword(Value: Boolean);
  11. public
  12. constructor Create(AOwner: TComponent); override;
  13. published
  14. property Password: Boolean read FPassword write SetPassword default True;
  15. property Anchors;
  16. property AutoSelect;
  17. property AutoSize;
  18. property BevelEdges;
  19. property BevelInner;
  20. property BevelKind default bkNone;
  21. property BevelOuter;
  22. property BiDiMode;
  23. property BorderStyle;
  24. property CharCase;
  25. property Color;
  26. property Constraints;
  27. property Ctl3D;
  28. property DragCursor;
  29. property DragKind;
  30. property DragMode;
  31. property Enabled;
  32. property Font;
  33. property HideSelection;
  34. property ImeMode;
  35. property ImeName;
  36. property MaxLength;
  37. property OEMConvert;
  38. property ParentBiDiMode;
  39. property ParentColor;
  40. property ParentCtl3D;
  41. property ParentFont;
  42. property ParentShowHint;
  43. //property PasswordChar;
  44. property PopupMenu;
  45. property ReadOnly;
  46. property ShowHint;
  47. property TabOrder;
  48. property TabStop;
  49. property Text;
  50. property Visible;
  51. property OnChange;
  52. property OnClick;
  53. property OnContextPopup;
  54. property OnDblClick;
  55. property OnDragDrop;
  56. property OnDragOver;
  57. property OnEndDock;
  58. property OnEndDrag;
  59. property OnEnter;
  60. property OnExit;
  61. property OnKeyDown;
  62. property OnKeyPress;
  63. property OnKeyUp;
  64. property OnMouseDown;
  65. property OnMouseMove;
  66. property OnMouseUp;
  67. property OnStartDock;
  68. property OnStartDrag;
  69. end;
  70. procedure Register;
  71. implementation
  72. uses Windows, SysUtils;
  73. procedure Register;
  74. begin
  75. RegisterComponents('Martin', [TPasswordEdit]);
  76. end;
  77. constructor TPasswordEdit.Create(AOwner: TComponent);
  78. begin
  79. inherited Create(AOwner);
  80. FPassword := True;
  81. end;
  82. procedure TPasswordEdit.SetPassword(Value: Boolean);
  83. begin
  84. if Password <> Value then
  85. begin
  86. FPassword := Value;
  87. RecreateWnd;
  88. end;
  89. end;
  90. procedure TPasswordEdit.CreateParams(var Params: TCreateParams);
  91. begin
  92. inherited;
  93. if FPassword then
  94. begin
  95. Params.Style := Params.Style or ES_PASSWORD;
  96. end;
  97. end;
  98. initialization
  99. end.