Последние записи

made in programmersforum 6

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

4th
Авг

Создать анимацию кнопки

Posted by micher under Delphi

Марк Охман

Я вот не могу разобраться, как сделать так, чтобы при наведении мышки на кнопку она изменяла свой размер или чтобы была какая-нибудь анимация, обязательно связанная с размерами кнопки?

Баламут

Вот простенький примерчик (Delphi2010).


unit Unit1;
interface
uses

  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

  Dialogs, StdCtrls;
type

  TForm1 = class(TForm)

    Button1: TButton;

    procedure Button1MouseEnter(Sender: TObject);

    procedure Button1MouseLeave(Sender: TObject);

  private

    { Private declarations }

  public

    { Public declarations }

  end;
var

  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1MouseEnter(Sender: TObject);

begin

  Button1.Height := Button1.Height * 2;

end;
procedure TForm1.Button1MouseLeave(Sender: TObject);

begin

Button1.Height := Button1.Height div 2;

end;
end.