из рисунка ниже видно что компонент TCountBtn установлен и находится в звкладке MyComponents....проблема в том что эта закладка не появляется там где она должна быть рядом со Standard и следовательно я не могу его выбрать...но если поставить "пустой " компонент(Component->New Component->Заполнить поля и далее не добавлять свой код в созданный *.pas) в эту же закладку то закладка появится...но опять без первого компонента...никак не могу понять ошибку 
вот сам компонент
| Код |
unit QCountBtn;
interface
uses
SysUtils, Classes, QControls, QStdCtrls,Dialogs;
type
TCountBtn = class(TButton)
private
FCount:integer;
{ Private declarations }
protected
procedure Click;override;
{ Protected declarations }
public
procedure ShowCount;
constructor Create(AOwner:TComponent);override;
{ Public declarations }
published
property Count:Integer read FCount write FCount;
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('MyComponents', [TCountBtn]);
end;
{ TCountBtn }
procedure TCountBtn.Click;
begin
inherited Click;
FCount:=FCount+1;
end;
constructor TCountBtn.Create(AOwner: TComponent);
begin
inherited create(AOwner);
end;
procedure TCountBtn.ShowCount;
begin
Showmessage('Ïî êíîïêå '+ caption+' âû ñäåëàëè: '+inttostr(FCount)+' êëèê(à/îâ)');
end;
end.
|
 |
