Изменение свойств программно созданной кнопки

shelly

создаю кнопки в виде таблицы:
buttons[i,j]:=TBitBtn.create(form2.GroupBox1);
  with buttons[i,j]do
  begin
  buttons[i,j].Parent:=form2.GroupBox1;
     buttons[i,j].Left:=t;
      buttons[i,j].Top:=p;
      buttons[i,j].Width:=25;
      buttons[i,j].Height:=25;
      buttons[i,j].Name:='b'+inttostr(i)+'_'+inttostr(j);
      buttons[i,j].Caption:='';
      buttons[i,j].onClick:=form2.RunTimeButtonClick;
      buttons[i,j].Tag:=i*100+j;
      t:=t+25;
      end;
      end;
      t:=25;
     end;
     end;
нужно в процедуре клика поменять glyph.
1 ответ

shelly

В чём проблема?
procedure TForm2.RunTimeButtonClick(Sender: TObject);
begin
  (Sender as TBitBtn).Glyph.LoadFromFile('vfdvd'); //Грузим новую картинку
end;