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

[Nikolas_555]

Сообщение от Аватар

Что такое Back?

это Name кнопки SpeedButton.

Back: TSpeedButton;

Хорошо, попробую разобраться с массивами SpeedButton.

[northener]

Ругается потому что

Procedure Hod_V_Malye_Kletki(Sender: TObject);

это регулярная процедура, а не метод класса.
Ну а это

    TForm5.SpeedButtonA1Click(Sender);
    TForm5.SpeedButtonA1MouseEnter(Sender);
    TForm5.SpeedButtonA1MouseLeave(Sender);

совсем чушь.

[doktor255]

это Name кнопки SpeedButton.

(Sender as TSpeedButton).Name <> 'Back' // или равно. не углубляюсь в задачу

[Nikolas_555]

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

(Sender as TSpeedButton).Name <> 'Back' // или равно. не углубляюсь в задачу

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

тогда вопрос, как правильно записать в процедуру(или функцию) вызов этих трёх процедур?
(которые меняют картинку при наведении\отведении курсора, и при клике на SpeedButton'ы)

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

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

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

[northener]

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

И не забыть добавить Procedure Hod_V_Malye_Kletki(Sender: TObject); в описание класса TForm5.
В смысл кода не вдумывался. Снимаю с себя всякую ответственность за него.

[Nikolas_555]

northener,doktor255 благодарю за помощь! программа работает, разобрался теперь и с вызовом процедур.

Но всё ещё не добился нужного результата
работает только кнопка SpeedButtonA1, в то время, как должны были по сути, работать все SpeedButton'ы, исключая только Back.
Думал эта проблема решалась с помощью Sender'а, но результат остался прежним, что и был в начале темы.

Вот код. собственно всё, чего я добился с вашей помощью

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

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

   procedure TForm5.SpeedButtonA1MouseLeave(Sender: TObject);
   begin
     if F=True then
        TSpeedButton(Sender).Glyph.LoadFromFile('C:\Users\Lenovo\Downloads\!!! ХО\Devil Hard XO\Pictures\fon.bmp');
    end;
{------------------------------------------------------------------------------}
Procedure TForm5.Hod_V_Malye_Kletki(Sender: TObject);
Begin
 if (Sender is TSpeedButton) and ((Sender as TSpeedButton).Name <> 'Back') then
  Begin
    SpeedButtonA1Click(Sender);
    SpeedButtonA1MouseEnter(Sender);
    SpeedButtonA1MouseLeave(Sender);
  End;
End;

Впрочем, вопрос остаётся открытым.

[northener]

работает только кнопка SpeedButtonA1, в то время, как должны были по сути, работать все SpeedButton'ы

Всем ли SpeedButton'ам присвоены эти обработчики:
procedure TForm5.SpeedButtonA1Click(Sender: TObject);
procedure TForm5.SpeedButtonA1MouseEnter(Send er: TObject);
procedure TForm5.SpeedButtonA1MouseLeave(Send er: TObject);
?

[doktor255]

работает только кнопка SpeedButtonA1

А Вы присвоили обработчики ВСЕМ кнопкам???
P.S. если уж речь зашла о массивах компонентов, попробуйте вот такую штуку

var
  Form1: TForm1;
  Buttons: Array [1..100] of TSpeedButton;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
 i, X, Y: integer;
begin
 X := 10;
 Y := 10;
 for I := Low(buttons) to High(buttons) do
   begin
     buttons[i] := TSpeedButton.Create(Owner);
     buttons[i].Parent := Form1;
     buttons[i].Left := X;
     buttons[i].Top := Y;
     buttons[i].OnMouseDown := ... // а вот тут как раз и присваиваешь все обработчики какие нужны
     inc(X, 20);
     if X > form1.Width then
       begin
         X := 10;
         inc(Y, 20);
       end;
   end;
end;

[Nikolas_555]

Так, ясно..
да, забыл уточнить ещё одну важную вещь.
надо сделать так, что бы в результате, при выполнении этих процедур

procedure TForm5.SpeedButtonA1Click(Sender: TObject);
procedure TForm5.SpeedButtonA1MouseEnter(Send er: TObject);
procedure TForm5.SpeedButtonA1MouseLeave(Send er: TObject);

у разных SpeedButton'ов менялись ещё и разные картинки.

а так как я вывожу картинки не только из ImageList, но ещё и загружаю с диска..
Тогда придётся добавить множество условных операторов if в определенных местах кода конкретных процедур...

[Nikolas_555]

northener,doktor255
ладно, это уже другая проблема, вы и так помогли мне разобраться со многими вещами. Благодарю!

З.Ы. doktor255, спасибо за пример массива, буду разбираться!