Button Clicks zählen

[DeddyH]

Wie wäre es denn so (nur so ein Gedanke)?

Delphi-Quellcode:

type
  TButton = class(StdCtrls.TButton)
  private
    FClickCount: Cardinal;
    procedure WMLButtonUp(var Msg: TWMLButtonUp); message WM_LBUTTONUP;
  public
    property ClickCount: Cardinal read FClickCount;
  end;

  TForm1 = class(TForm)
  ...

implementation
...

procedure TButton.WMLButtonUp(var Msg: TWMLButtonUp);
begin
  Inc(FClickCount);
  inherited;
end;