| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Событие наведения указателя мышки к кнопке на форме [D7, 95/98, ME, NT4, 2000, XP, 2003]

СержК ©   (2006-10-19 16:36:00) 

Мастера,
может кто подкинет идейку как обработать событие наведения указателя мышки к кнопке находящейся на форме.

Видел в готовом виде, но как это сделано не пойму...

---

СержК   (2006-10-19 16:46:00) [1]

Огромное спасибо за совет!
Сейчас буду разбираться.

---

Dmitrij_K   (2006-10-19 16:41:00) [2]

OnMouseLeave - мышка покинула приделы кнопки
OnMouseEnter - соответственно на кнопке

---

Dmitrij_K   (2006-10-19 16:40:00) [3]

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.



---

Elen   (2006-10-19 16:39:00) [4]

> СержК

TButton.OnMouseMove уже не катит?

---

Наверх