Как поменять фоновое изображение у кнопки в дизайнере форм PascalABC.NET?

@XoSSe · Регистрация: 23.12.2016

Author24 — интернет-сервис помощи студентам

Такой вопрос:

Я поменял фоновое изображение у кнопки в дизайнере форм PascalABC.NET. Как сделать так, чтобы при наведении курсора на эту кнопку и при клике на нее, изображение менялось на другое?

Три изображения для кнопки я подготовил: стандартный фон, фон при наведенном курсоре на кнопке и фон при нажатой кнопке.

@volvo · 23.12.2016, 21:42

Добавил три изображения в ресурсы, и меняю их по нужным событиям:

Pascal

implementation
{$resource mouse_over.png}
{$resource mouse_out.png}
{$resource clicked.png}
 
// ...
 
procedure Form1.button3_MouseEnter(sender: Object; e: EventArgs);
begin
  button3.BackgroundImage := Image.FromStream(System.Reflection.Assembly.
    GetExecutingAssembly().GetManifestResourceStream('mouse_over.png'));
end;
 
procedure Form1.button3_MouseLeave(sender: Object; e: EventArgs);
begin
  button3.BackgroundImage := Image.FromStream(System.Reflection.Assembly.
    GetExecutingAssembly().GetManifestResourceStream('mouse_out.png'));
end;
 
procedure Form1.button3_MouseDown(sender: Object; e: MouseEventArgs);
begin
  button3.BackgroundImage := Image.FromStream(System.Reflection.Assembly.
    GetExecutingAssembly().GetManifestResourceStream('clicked.png'));  
end;

Можно вынести присвоение свойства в отдельный метод, тогда писать придется гораздо меньше.

@XoSSe · 23.12.2016, 23:10 **[ТС]**

Не работает. Просто ничего с кнопкой не происходит.

@volvo · 24.12.2016, 00:26

Если бы не работало - я бы не выложил. Все прекрасно работает.

@XoSSe 0 / 0 / 0 Регистрация: 23.12.2016 Сообщений: 15
		1
	Как поменять фоновое изображение у кнопки в дизайнере форм PascalABC.NET? 23.12.2016, 17:13. Показов 928. Ответов 3 Метки нет (Все метки) Такой вопрос: Я поменял фоновое изображение у кнопки в дизайнере форм PascalABC.NET. Как сделать так, чтобы при наведении курсора на эту кнопку и при клике на нее, изображение менялось на другое? Три изображения для кнопки я подготовил: стандартный фон, фон при наведенном курсоре на кнопке и фон при нажатой кнопке. 0

@XoSSe 0 / 0 / 0 Регистрация: 23.12.2016 Сообщений: 15
	23.12.2016, 23:10 [ТС]	3
	Не работает. Просто ничего с кнопкой не происходит. 0

@volvo Супер-модератор 32968 / 21282 / 8172 Регистрация: 22.10.2011 Сообщений: 36,555 Записей в блоге: 8
	24.12.2016, 00:26	4
	Если бы не работало - я бы не выложил. Все прекрасно работает. 0