Форум: "Начинающим";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];
ВнизСобытие наведения указателя мышки к кнопке на форме Найти похожие ветки
← →
СержК (2006-10-19 16:36) [0]Мастера,
может кто подкинет идейку как обработать событие наведения указателя мышки к кнопке находящейся на форме.
Видел в готовом виде, но как это сделано не пойму...
← →
Elen © (2006-10-19 16:39) [1]
> СержК
TButton.OnMouseMove уже не катит?
← →
Dmitrij_K (2006-10-19 16:40) [2]
unit ExtButton;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, Buttons;
type
TExtButton = class(TButton)
private
{ Private declarations }
FOnMouseLeave: TNotifyEvent;
FOnMouseEnter: TNotifyEvent;
procedure CMMouseEnter(var Message: TMessage); message CM_MOUSEENTER;
procedure CMMouseLeave(var Message: TMessage); message CM_MOUSELEAVE;
protected
{ Protected declarations }
public
{ Public declarations }
published
{ Published declarations }
property OnMouseLeave: TNotifyEvent read FOnMouseLeave write FOnMouseLeave;
property OnMouseEnter: TNotifyEvent read FOnMouseEnter write FOnMouseEnter;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents("ExtControl", [TExtButton]);
end;
{ TExtSpeedButton }
procedure TExtButton.CMMouseEnter(var Message: TMessage);
begin
if Assigned(FOnMouseEnter) then
FOnMouseEnter(Self);
end;
procedure TExtButton.CMMouseLeave(var Message: TMessage);
begin
if Assigned(FOnMouseLeave) then
FOnMouseLeave(Self);
end;
end.
← →
Dmitrij_K (2006-10-19 16:41) [3]OnMouseLeave - мышка покинула приделы кнопки
OnMouseEnter - соответственно на кнопке
← →
СержК (2006-10-19 16:46) [4]Огромное спасибо за совет!
Сейчас буду разбираться.
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.11.05;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.039 c