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

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.

тема на форуме

Случайные статьи

• можно ли как то открыть файл в одной программе два раза сразу?
• Генерация задачек вида 3*5-7
• Алгоритм преобразования сферических координат в декартовые. Графическая иллюстрация
• Подстановка данных сразу из 4 таблиц в одну в С++ Builder 6
• Если ввести значение в edit, и нажать Enter, то система воспроизводит звук, как от него избавиться?
• Как проверить установлена ли программа на компьютере?
• Поиск файла по указанному пути
• Indy in Depth, глубины Indy
• Определить самую длинную строку в ListBox
• Матрицы и их диагонали