| Код |
unit CountBtn;
interface
uses
System.SysUtils, System.Classes, Vcl.Controls, Vcl.StdCtrls, Vcl.Dialogs;
type
TCountBtn = class(TButton)
private
{ Private declarations }
FCount : integer;
protected
{ Protected declarations }
public
{ Public declarations }
procedure ShowCount;
procedure Click ; override;
published
{ Published declarations }
property Count : integer read FCount write FCount;
constructor Create(Aowner : TComponent); override;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('MyComponents', [TCountBtn]);
end;
constructor TCountBtn.Create(Aowner : TComponent);
begin
inherited Create(Aowner);
end;
procedure TCountBtn.ShowCount;
begin
Showmessage('По кнопке '+ caption+' вы сделали: '+inttostr(FCount)+' клик(а/ов)');
end;
end.
|
|
)