Developing.ru

Код: Выделить всё

unit CountBtn;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;

type
TCountBtn = class(TButton)
private
{ Private declarations }
FCount:integer;
protected
{ Protected declarations }
procedure Click;override;
public
{ Public declarations }
procedure ShowCount;
published
{ Published declarations }
property Count:integer read FCount write FCount;
constructor Create(aowner:Tcomponent);override;
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents('Mihan Components', [TCountBtn]);
end;

constructor TCountBtn.Create(aowner:Tcomponent);
begin
inherited create(Aowner);
end;

procedure Tcountbtn.Click;
begin
inherited click;
FCount:=FCount+1;
end;

procedure TCountBtn.ShowCount;
begin
Showmessage('По кнопке '+ caption+' вы сделали: '+inttostr(FCount)+' клик(а/ов)'); //здесь выскакивает ошибка
end;
end. 

Код: Выделить всё

unit CountBtn;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls;

var
  p: TObject;
type
  TCountBtn = class(TButton)
  private
  { Private declarations }
    FCount:integer;
  protected
  { Protected declarations }
    procedure Click;override;
  public
  { Public declarations }
    procedure ShowCount;
  published
  { Published declarations }
    property Count:integer read FCount write FCount;
    constructor Create(aowner:Tcomponent);override;
end;

procedure Register;

implementation

procedure Register;

begin
  RegisterComponents('MyComponent', [TCountBtn]);
end;

constructor TCountBtn.Create(aowner:Tcomponent);
begin
inherited create(Aowner);
end;

procedure Tcountbtn.Click;
begin
inherited click;
FCount:=FCount+1;
end;

procedure TCountBtn.ShowCount;
begin
Showmessage('По кнопке '+ TButton(p).Caption+' вы сделали: '
  +inttostr(TCountBtn(p).FCount)+' клик(а/ов)'); // при компилящии ошибки нет, а вот при нажатии на кнопку уже в приложении здесь выскакивает ошибка
end;

end.

Код: Выделить всё

unit CountBtn; 

interface 

uses 
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, 
StdCtrls, ExtCtrls; 

type 
TCountBtn = class(TButton) 
private 
{ Private declarations } 
FCount:integer; 
protected 
{ Protected declarations } 
procedure Click;override; 
public 
{ Public declarations } 
procedure ShowCount; 
published 
{ Published declarations } 
property Count:integer read FCount write FCount; 
constructor Create(aowner:Tcomponent);override; 
end; 

procedure Register; 

implementation 

procedure Register; 
begin 
RegisterComponents('Mihan Components', [TCountBtn]); 
end; 

constructor TCountBtn.Create(aowner:Tcomponent); 
begin 
inherited create(Aowner); 
end; 

procedure Tcountbtn.Click; 
begin 
inherited click; 
FCount:=FCount+1; 
end; 

procedure TCountBtn.ShowCount; 
begin 
Showmessage('По кнопке '+ TCountBtn(self).caption+' вы сделали: '+inttostr(TCountBtn(self).FCount)+' клик(а/ов)'); 
end; 

end.