home *** CD-ROM | disk | FTP | other *** search
/ Delphi 4 Bible / Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso / source / DING / DingButton.pas < prev    next >
Pascal/Delphi Source File  |  1998-02-18  |  599b  |  39 lines
  1. unit DingButton;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls;
  8.  
  9. type
  10.   TDingButton = class(TButton)
  11.   private
  12.     { Private declarations }
  13.   protected
  14.     { Protected declarations }
  15.   public
  16.     procedure Click; override;
  17.     { Public declarations }
  18.   published
  19.     { Published declarations }
  20.   end;
  21.  
  22. procedure Register;
  23.  
  24. implementation
  25.  
  26. procedure Register;
  27. begin
  28.   RegisterComponents('Samples', [TDingButton]);
  29. end;
  30.  
  31. procedure TDingButton.Click;
  32. begin
  33.   MessageBeep(0);
  34.   inherited Click;
  35. end;
  36.  
  37.  
  38. end.
  39.