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

Вниз

OnMouseEnter, OnMouseLeave   Найти похожие ветки 

← →
viper03 ©   (2006-10-30 10:28) [0]

Как отследить что мышка наехала на ListBox? У ЛистБокса нет таких событий... :-((

---

← →
Dmitrij_K   (2006-10-30 10:30) [1]

Сделай наследника с такими событиями
Вот пример с Button

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.

---

← →
viper03 ©   (2006-10-30 12:35) [2]

Сенкс. заработало.
Как все просто, оказывается. :-)

---

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

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

Наверх

Память: 0.47 MB
Время: 0.031 c