unit CountBtn;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;
var Timer: TTimer;
type
TCountBtn = class(TButton) //это название вашего компонента - TCountBtn
.....
implementation
.....
constructor TCountBtn.Create(aowner:Tcomponent);
begin
inherited create(Aowner);
Timer:=TTimer.Create(self);
Timer.Enabled:=true;
Timer.OnTimer:=OnTimer;//какой метод вызывать по событию OnTimer
Timer.Interval:=10000;//здесь задаете интервал
end;
procedure TCountBtn.OnTimer(Sender: TObject);
begin
FCount:=FCount*2;//любое ваше действие
end;
|
