процедура выигрыша\проигрыша в игре

[Nikolas_555]

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

вообще-то мы щелкали не по элементу массива, а по некоторому объекту

так что Buttons[p] ЭТО не то где мы щелкали !!! им может быть только buttons[x].button .
а вот какой из всех этих ?!

а как тогда мне записать присвоение Тэга к элементу массива, на который кликнули?
на buttons[x].button.Tag1 ругается, т.к. такого параметра у SpeedButton'ов просто нету.
возможно, есть у SpeedButton'а параметр, типа integer, на подобии Tag'а?

[evg_m]

а как тогда мне записать присвоение Тэга к элементу массива, на который кликнули?

так же как писали до этого.

buttons[????].tag1:=2;

и помнить при этом что мы еще не ответили на вопрос а какой собственно элемент массива мы хотим изменить.

Элемент массива это не кнопка по которой мы щелкали. Кнопка по которой мы щелкнули есть Sender, но где она "спрятана" в массиве мы еще не знаем, хотя уверены что она там есть в том самом buutons[x].button c НЕИЗВЕСТНЫМ(x) индексом!!

[Nikolas_555]

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

так же как писали до этого.

buttons[????].tag1:=2;

и помнить при этом что мы еще не ответили на вопрос а какой собственно элемент массива мы хотим изменить.

Элемент массива это не кнопка по которой мы щелкали. Кнопка по которой мы щелкнули есть Sender, но где она "спрятана" в массиве мы еще не знаем, хотя уверены что она там есть в том самом buutons[x].button c НЕИЗВЕСТНЫМ(x) индексом!!

ага.. так, значит мне надо написать процедуру, которая определяет нажатый компонент.

[Nikolas_555]

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

ага.. так, значит мне надо написать процедуру, которая определяет нажатый компонент.

блин, сколько мучился, никак не могу написать
может, у кого-нибудь есть идеи?

[evg_m]

может, у кого-нибудь есть идеи?

вар 0. переименуйте ваш массив buttons в любое другое имя не имеющее созвучия с внутренним полем button
например так pole: array [ ] of ...;
может тогда у вас пропадет путаница с какой объектом вы работаете (или хотите работать).

вар 1. искать

if buttons[x].button =sender then i:=x; //OK;

вар 2. при заполнении массива и соответственно создании кнопок "запоминать" какому элементу массива кнопка соответствует.

  buttons[i].button:=TSpeedButton.Create(...);
  ..... 
  buttons[i].button.tag:=i; // теперь кнопка(TSpeedButton)  "знает" о "своем" индексе.

а так и мы узнаем

 i:=(sender as TSpeedButton).tag;

вар 3 отказаться от массива buttons и всю нужную информацию хранить "вместе с кнопкой" в том самом поле Tag. круто но нереально на вашем уровне.

ага.. так, значит мне надо написать процедуру, которая определяет нажатый компонент.

блин, сколько мучился, никак не могу написать

 btn:=TSpeedButon.Create();
 ..........
 btnext:=TButtonExt.Create;
 .........
 btn.tag:=Pointer(btnext);

 btnext:=TButtonExt(sender as TSpeedButton).tag);

[Nikolas_555]

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

вар 1. искать

if buttons[x].button =sender then i:=x; //OK;

спасибо! выбрал этот, самый оптимальный вариант, и вот результат



ещё раз, огромное спасибо за помощь!