Изменение рисунка кнопки BitBtn

[bilibian]

Привет.

Нашел тему на этом форуме где это обсуждалось, предлагался вариант:

procedure TForm1.BitBtn1MouseEnter(Sender: TObject);
begin
 ImageList1.GetBitmap(1,BitBtn1.Glyph); 

end;

procedure TForm1.BitBtn1MouseLeave(Sender: TObject);
begin
 ImageList1.GetBitmap(0,BitBtn1.Glyph); 
end;

Где ImageList1 содержит два разных изображения.

А если кнопок много и с каждой так нужно поступить? Не проще ли загрузить всего 1 картинку на которой размещены все иконки, при наведении на кнопку просто менять координаты картинки. Вот только где эти координаты находятся у BitBtn? Подскажите?

[phomm]

То, что Вы говорите, и есть примерно тот же способ по которому и работает имейджлист (внутри него цельная картинка, которую он динамически нарезает на кусочки и выдает вам по GetBitmap).
Если кнопок много, то надо каждой дать свой Tag и назначить указанные Вами обработчики, внутри которых цифры заменить на операции с TControl(Sender).Tag, самое простое у кнопок тэг ставить через 2: 1,3,5 и картинки в имейджлист складывать парой для наведённого и отведённого состояния, тогда тег и тег - 1 будут указывать на соотв номер картинки.

[bilibian]

phomm,

Окей, спасибо, ушел пробовать

[bilibian]

Работает, спасибо.

procedure TForm1.BitBtn1MouseEnter(Sender: TObject);
begin
  BitBtn1.Glyph.Assign(nil); // <--- чистим
  ImageList1.GetBitmap(BitBtn1.Tag,BitBtn1.Glyph);
end;

procedure TForm1.BitBtn1MouseLeave(Sender: TObject);
begin
  BitBtn1.Glyph.Assign(nil); // <--- чистим
  ImageList1.GetBitmap(BitBtn1.Tag+1,BitBtn1.Glyph);
end;