invalid class typecast

[heart]

Есть такой код:

begin
  button[((Sender as TButton).Tag)].caption:=edit1.Text;
end;

Не работает, выдает ошибку invalid class typecast, понятия не имею из-за чего.

[Marsel737]

heart, а для чего этот код? Чтоб получать надписи нажатых кнопок? Может так попробывать:

(Sender as TButton).caption:=edit1.Text;

[heart]

для обычной кнопки работает, но мои создаются динамически, потому не катит... ошибка, таже...

button[((Sender as TButton).Tag)].caption:=edit1.Text;

button - это массив кнопок.
((Sender as TButton).Tag) - определяет, какая именно кнопка нажата, и берет у нажатой кнопки числовое свойство(идентификатор), который ей дается при создание. Допустим мы нажали кнопку, которая была создана пятой (Sender as TButton).Tag, вернет число пять и того мы получим :

button[5].caption:=edit1.Text;

Надписси пятой кнопки присвоить, текст из едит. Вот зачем код.

[Marsel737]

heart, тогда нужно при создании кнопки ей присваивать свой tag и увеличивать его с каждым разом. Потому что для всех кнопок tag=-1

Без всяких тегов:

на формкреэйт

MyGlobVar:=1;

procedure TfrmMain.imgNewClick(Sender: TObject);
begin
  MyButton:=TImage.Create(Owner);
  MyButton.Parent:=self;
  MyButton.Height:=25;
  MyButton.Width:=75;
  MyButton.Name:='MyButton'+IntToStr(MyGlobVar);
  Inc(MyGlobVar);
end;

[heart]

это тут не причем, я создаю все правильно и с таг у меня все правильно. Я ж выше написал:

и берет у нажатой кнопки числовое свойство(идентификатор), который ей дается при создание

И у каждой кнопки свое значение. Мну не это нужно, Вопрос в первом посте.

[Пепел Феникса]

Sender этот объект который вызвал событие.

[heart]

я знаю, для чего нужен Sender, по моему я вполне конкретно задал вопрос в первом посте.

[Пепел Феникса]

а Sender точно TButton?
судя по ошибке нет.

[heart]

Сообщение от Пепел Феникса

а Sender точно TButton?
судя по ошибке нет.

Кажется понял в чем ошибка)))) событие вызывает другой объект, спасибо)))) а я и забыл про такой расклад.