OnTimer. Как инкрементировать поле (внутри компонента) одновременно с наступлением события OnTimer ?

[fusic]

Помогите решить задачку.
Есть компонент Timer, который для удобства нужно слегка доработать:
-добавить пару методов - это легко получилось !
-и добавить свойство Count=число срабатываний таймера с момента последнего старта. Вот тут засада.
Поле добавил. Но как его инкрементировать (внутри компонента) одновременно с наступлением события OnTimer ?
Помогите пожалуйста !

[Alar]

выкладывайте код, наработки, иначе тему закроют.

[min@y™]

Переопределить вот этот protected-метод:

43.png

[fusic]

unit TimerCnt;

interface

uses
  SysUtils, Classes, ExtCtrls;

type
  TTimerCnt = class(TTimer)
  private
    { Private declarations }
    FCount:cardinal;
    //FOnTimerCnt : TNotifyEvent;
  protected
    { Protected declarations }
    //procedure DoOnTimer; dynamic;
  public
    { Public declarations }
    //property OnTimerCnt : TNotifyEvent read FOnTimerCnt write FOnTimerCnt;
    procedure Star;
    procedure Stop;
    procedure ReStart;
    constructor Create (AOwner : TComponent);override;
    //property Count : cardinal read FCount write FCount;
    //procedure OnTimer; override;
    //function Cnt (): cardinal;
  published
    { Published declarations }
    property Count : cardinal read FCount write FCount;
  end;

procedure Register;

implementation

//procedure TTimerCnt.OnTimerCnt();
//begin
  //Inc(FCount);
  //if Assigned(OnTimer) then OnTimer(Self);
//end;

constructor TTimerCnt.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
FCount:=0;
end;

//procedure TTimerCnt.OnTimer;
//begin
//inherited OnTimer;
//Inc(FCount);
//end;

procedure Register;
begin
  RegisterComponents('Samples', [TTimerCnt]);
end;

procedure TTimerCnt.Star;
begin
FCount:=0;
Enabled := true;
end;

procedure TTimerCnt.Stop;
begin
Enabled := false;
end;

procedure TTimerCnt.ReStart();
begin
Enabled := false;
Enabled := true;
end;

end.

[Аватар]

Написали же - переопредели метод Timer. В нем Inc(FCount) и inherited

[Alar]

Сообщение от min@y™

Переопределить вот этот protected-метод:

Код нужно выкладывать текстом, а не картинкой, даже топик стартер правильно оформил.

[fusic]

Спасибо. Работает.

unit TimerCnt;

interface

uses
  SysUtils, Classes, ExtCtrls;

type
  TTimerCnt = class(TTimer)
  private
    FCount:cardinal;
  protected
    procedure Timer; override;
  public
    procedure Star;
    procedure Stop;
    procedure ReStart;
    constructor Create (AOwner : TComponent);override;
  published
    property Count : cardinal read FCount write FCount;
  end;

procedure Register;

implementation

procedure TTimerCnt.Timer;
begin
  inherited;
  Inc(FCount);
end;

constructor TTimerCnt.Create(AOwner : TComponent);
begin
inherited Create(AOwner);
FCount:=0;
end;

procedure Register;
begin
  RegisterComponents('Samples', [TTimerCnt]);
end;

procedure TTimerCnt.Star;
begin
FCount:=0;
Enabled := true;
end;

procedure TTimerCnt.Stop;
begin
Enabled := false;
end;

procedure TTimerCnt.ReStart();
begin
Enabled := false;
Enabled := true;
end;

end.

[min@y™]

Сообщение от Alar

Код нужно выкладывать текстом, а не картинкой, даже топик стартер правильно оформил.

Мне не нравится тутошный скрипт подсветки. Он тупой и убогий.

[Alar]

Сообщение от min@y™

Мне не нравится тутошный скрипт подсветки. Он тупой и убогий.

Ничего не поделаешь, код должен быть кодом, а не картинкой.

[min@y™]

Сообщение от fusic

Спасибо. Работает.