процедуры в процедуре

[Nikolas_555]

Привет, форумчане!
Итак, сразу к делу. попытаюсь изложить всё подробно, что б ни у кого не возникло вопросов. не поленитесь всё прочесть
У меня на форме расположены 81 штука компонентов SpeedButton, по 9 на каждую букву английского алфавита от A до I.
для наглядности, что б все поняли, покажу как они обозначены:

SpeedButtonA1, SpeedButtonA2, ... , SpeedButtonA8, SpeedButtonA9,
SpeedButtonB1, ... , SpeedButtonB9,
SpeedButtonC1, ... , SpeedButtonC9,
SpeedButtonD1, ... , SpeedButtonD9,
SpeedButtonE1, ... , SpeedButtonE9,
SpeedButtonF1, ... , SpeedButtonF9,
SpeedButtonG1, ... , SpeedButtonG9,
SpeedButtonH1, ... , SpeedButtonH9,
SpeedButtonI1, ... , SpeedButtonI9;

Кроме того, у меня на форме есть компонент ImageList.

К SpeedButtonA1 написал несколько процедур, что б при: клике на компонент, наведении курсора него, а так же отведении курсора от компонента, менялась его картинка, в опции Glyph.

Вот

procedure TForm5.SpeedButtonA1Click(Sender: TObject);
begin
ImageList1.GetBitMap(0,SpeedButtonA1.Glyph);
F := False;
end;

procedure TForm5.SpeedButtonA1MouseEnter(Sender: TObject);
begin
  if F=True then
    SpeedButtonA1.Glyph.LoadFromFile('C:\Users\Lenovo\Downloads\!!! ХО\Devil Hard XO\Pictures\1.bmp');
end;

procedure TForm5.SpeedButtonA1MouseLeave(Sender: TObject);
begin
  if F=True then
    SpeedButtonA1.Glyph.LoadFromFile('C:\Users\Lenovo\Downloads\!!! ХО\Devil Hard XO\Pictures\fon.bmp');
end;

Подытожим. Вопрос в том, как грамотно записать эту тройку процедур для каждого компонента SpeedButton? Как я понял, стоит сделать процедуру с этими тремя внутри, но помимо этого, каким-то образом изменяя название компонентов.
Подскажите, как это осуществить?

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

Sender это объект вызвавший событие, через него вы можете получить кнопку с которой событие произошло.

[northener]

ImageList1.GetBitMap(0,TSpeedButton(Sender).Glyph);

[Nikolas_555]

почти получилось, спасибо..
только теперь возникла проблема. Хочу сделать так, что бы эта тройка процедур-событий(Click,Leave,Enter) распространялась на все SpeedButton'ы, кроме Back.

Procedure Hod_V_Malye_Kletki(Sender: TObject);
Begin
 if (Sender is TSpeedButton) and (Sender is not Back) then
  Begin
    TForm5.SpeedButtonA1Click(Sender);
    TForm5.SpeedButtonA1MouseEnter(Sender);
    TForm5.SpeedButtonA1MouseLeave(Sender);
  End;
End;

Delphi ругается на Back, пишет "Undeclared identifier Back at line", хотя у меня в программе он объявлен.

type
    Back: TSpeedButton;

Может я упустил какую-то мелочь? В чем проблема?

[BDA]

and (Sender <> Back)

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

BDA, Back это тип.

 if (Sender is TSpeedButton) and (not (Sender is Back)) then

[BDA]

Пепел Феникса, возможно Вы и правы. Меня смущает ":" в записи типа, поэтому я решил, что это все же переменная, а не тип.

[Nikolas_555]

пробовал это:

and (Sender <> Back)

так же и это:

if (Sender is TSpeedButton) and (not (Sender is Back)) then

Увы, ничего не изменилось. Delphi выдаёт ту же самую ошибку

[Аватар]

Что такое Back?

[doktor255]

Мне тоже интересен этот вопрос. Back, это, как я понял, кнопка имеющая либо такой caption, либо такой Name. Соответственно их и нужно проверять. А в коде проверяется какая-то лабуда.

У меня на форме расположены 81 штука компонентов SpeedButton

Я Вам глубоко сочувствую. Изучите массивы, создайте массив SpeedButton, а в OnCreate формы в цикле от первого до последнего элемента массива инициализируйте их, присвойте Parent - Form1, и назначьте эти три обработчика. Такой финт уменьшит объём кода в несколько раз.