Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.07.25;
Скачать: CL | DM;

Вниз

Как сделать у Button что-то на подобие у Label OnMouseLeave?   Найти похожие ветки 

 
Максим   (2004-07-09 10:20) [0]

Помогите, пожалуйста! Знаете у Label есть событие OnMouseLeave. Как сделать подобное у Button? Хочу, чтобы при убирании мышки с кнопки менялась картинка.


 
_ALEXey_   (2004-07-09 10:50) [1]

НаписАть обработчик сообщения CM_MOUSELEAVE (CM_MOUSEENTER)


 
TUser ©   (2004-07-09 10:52) [2]

Или обрабатывать OnMouseMove формы и следить за мышкой.


 
ssk ©   (2004-07-09 11:03) [3]

>Хочу, чтобы при убирании мышки с кнопки менялась картинка

то есть ты используешь не TButton, а TBitBtn?
вот держи компонентик...


unit sskBitBtn;

interface

uses
 Controls, Classes, StdCtrls, Buttons, Messages;

type
 TsskBitBtn = class(TBitBtn)
 private
   FOnMouseLeave: TNotifyEvent;
   FOnMouseEnter: TNotifyEvent;
   procedure CMMouseEnter(var msg: TMessage);
     message CM_MOUSEENTER;
   procedure CMMouseLeave(var msg: TMessage);
     message CM_MOUSELEAVE;
 protected
   procedure DoMouseEnter; dynamic;
   procedure DoMouseLeave; dynamic;
 published
   property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
   property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
 end;

procedure Register;

implementation

procedure Register;
begin
 RegisterComponents("ssk Components", [TsskBitBtn]);
end;

procedure TsskBitBtn.CMMouseEnter(var msg: TMessage);
begin
 DoMouseEnter;
end;

procedure TsskBitBtn.CMMouseLeave(var msg: TMessage);
begin
 DoMouseLeave;
end;

procedure TsskBitBtn.DoMouseEnter;
begin
 if Assigned(FOnMouseEnter) then
   FOnMouseEnter(Self);
end;

procedure TsskBitBtn.DoMouseLeave;
begin
 if Assigned(FOnMouseLeave) then
   FOnMouseLeave(Self);
end;

end.



Страницы: 1 вся ветка

Текущий архив: 2004.07.25;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.052 c
1-1089351361
DAnton
2004-07-09 09:36
2004.07.25
Вопрос про совместимости Дельфи разный версий.


6-1085586256
jcrush
2004-05-26 19:44
2004.07.25
Разбивка сообщений


8-1083932415
Petrovitch
2004-05-07 16:20
2004.07.25
Как изменить разрешение (dpi) в BMP, JPG ?


1-1089703323
Vilux
2004-07-13 11:22
2004.07.25
Таскбар


14-1089242699
Sanek_metaller
2004-07-08 03:24
2004.07.25
Thumbs.db