где правильно объявить переменной значение Caption

[WhitePoint]

Это мой первый компонент. При нажатии на кнопку, поле счетчика увеличивается на один, и потом выводится к-во нажатий. По нажатии кнопки первый раз к ее св-ву Caption должно прибавляться значение счетчика. Для этого значение Caption я присвоил переменной a и использовал ее. Привожу исполнительный раздел модуля компонента:

implementation

uses ComObj;
var a:string;

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

constructor TCountBtn.Create(aowner: TComponent);
begin
inherited Create(aowner);
a:=caption;
end;

Procedure TCountBtn.Click;
begin
inherited click;
FCount:=FCount+1;
if showtype = hidecount then
caption:=caption
else caption:=(a+inttostr(Fcount));
end;

procedure TCountBtn.showcount;
begin
showmessage('Вы сделали '+inttostr(FCount)+' клик(а/ов) по кнопке '+a)
end;

end.


в результате на кнопке название исчезает полностью, отображается просто значение счетчика. И в сообщении, вместо названии кнопки (+а) ничего нету...
Почему изменяется значение переменной и где присваивать ей значение, если проблема в этом?

[Jeni]

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

Почему изменяется значение переменной и где присваивать ей значение, если проблема в этом?

Скорее нужно спросить (себя), почему эта переменная является глобальной, т.е. общей для всех? Ведь в этом случае, при наличии нескольких TCountBtn-ов, каждая кнопка будет пытаться хранить свой заголовок в одной и той же переменной!

Вдобавок, в методе Create заголовка кнопку еще нет (Caption := <пусто>)

[WhitePoint]

в том то и дело, я хочу, чтобы это применение работало для любого значения caption для любого экземпляра компонента. подскажите, можно ли это сделать в модуле самого компонента, а не при написании модуля программы?

ну а если нет, то допустим, что больше, чем одна кнопка на форме не появится. почему же не работает этот вариант?

[pu4koff]

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

Procedure TCountBtn.Click;
begin
inherited click;
FCount:=FCount+1;
if showtype = hidecount then
caption:=caption
else caption:=(a+inttostr(Fcount));
end;
end.

Особо афтару удались строки: caption:=caption
и caption:=(a+inttostr(Fcount));
я бы описал какое-нить свое свойство BtnCaption, а caption спрятал куда-нить подальше и уже внутри класса менял как надо caption, унаследованное от TButton.
Никогда не задумывался о том, если на форме будет несколько твоих кнопок и в процессе работы ты решишь их переименовать?

[WhitePoint]

if showtype = showcount then
caption:=(a+inttostr(Fcount));

так лучше? Но почему-то a=<пусто>. я не знаю где она приобретает такое значение.

[pu4koff]

в общем пишешь:

...
private
  FMyCaption: string;
  procedure SetCaption(Value: string);
published
  property MyCaption: string read FMyCaption write SetCaption;
end;

...
procedure TCountBtn.SetCaption(Value: string);
begin
  if (FMyCAption <> Value) then
  begin
    FMyCaption := Value;
    if showtype = showcount then Caption := FMyCaption + IntToStr(FCount)
                                       else Caption := FMyCaption;
  end;
end;

ну по поводу типа string можешь пересмотреть...

[WhitePoint]

Гранд Спасибо