OnMouseMove

[beygul]

Такая проблема: Создаю обработчик события наведения курсора на кнопку Button1 и прописываю там две строчки:

procedure TForm1.Button1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
Button1.Height := 35;
Button1.Width := 85;
end;

изначальные размеры кнопки - меньше на 10. поэтому при наведение - она увеличивается. НО!

как сделать, чтобы когда убираешь курсор кнопки - происходил возврат размеров прежних - тоисть Height := 25; и Width := 75; ???

[DomiNick]

Хм... Попробуйте через MouseMove формы, на которой кнопка...

[beygul]

спасибо! как раз то что нужно было!