Создание анимации нажатия на кнопку

[Alex Cones]

Как бы сделать кнопку с анимацией нажатия и что бы при наведении на неё мышой картинка тоже менялась?

[DeKot]

Обратите внимание на кнопку BitBtn :

Используется кнопка BitBtn , отличающаяся, прежде всего, возможностью отобразить на ее поверхности изображение.Изображение на этой кнопке задается свойством Glyph. При нажатии кнопки с многоточием в строке свойства Glyph в Инспекторе Объектов вызывается окно. Нажав в нем кнопку Load вы перейдете в обычное окно открытия файла рисунка и можете выбрать файл битовой матрицы .bmp, содержащий желаемое изображение.

[Alex Cones]

Насчет использования BitBtn я и не сомневался. Я имел ввиду изменения рисунка по наведению мыши или клику.

[Disel]

В событии OnMouseMove для кнопки, пишите код который меняет картинку.
Пример:

procedure TForm1.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
  BitBtn1.Glyph.LoadFromFile('CLEAR.bmp');
end;

[Alex Cones]

Поставил такой код:

procedure TForm1.BitBtn1MouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
BitBtn1.Glyph:=Kadr2; // Где Kadr2 - TBITMAP, уже заданный
end;

Но страшно мерцает и не возвращает картинку, установленную по умолчанию

[DeKot]

Но страшно мерцает

Кажется лучше использовать не MouseMove , а координаты "мышиного" курсора на форме GetCursorPos(p: TPoint).При этом ипользовать дополнительный флаг на единственное изменение рисунка. Т.е. если x:= p.X; и y:= p.Y; попадают в координаты кнопки BitBtn, сменить рисунок кнопки и установить флаг.При этом использовать условие - если флаг установлен, то EXIT (выход из процедуры). Далее, как только координаты x и y вышли из координат кнопки, то вернуть исходный рисунок и сбросить флаг.

[Alex Cones]

Т.е. насколько я понял:
If (p.X>150) And (p.X<200) And (p.Y>100) And (p.Y<200) Then PrcChangeBtnScrn;

// Если координаты кнопки 150,100, а выс. и шир. : 100, 50?

ЗЫ: И, разумееся в процедуре запускать таймер, проверяющий координаты (для смены пикчи при выходе). И если координаты не соответствуют кнопке, то изменить пикчу и вырубить таймер.

[DeKot]

Ну да.Функция GetCursorPos(p: TPoint) вставляется в таймер и тем самым фоном(резидентно) отслеживает постоянно координаты "мыши".И здесь же все процедуры смены рисунка по сравнению координат.Таймер отрубать не обязательно(даже не нужно).А в промежутках между таймером обработка остального кода.

[Alex Cones]

Огромное спасибо за информацию