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

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

Обработка события входа и выхода курсора мыши!

Витёк ©   (2005-08-13 02:19:00) 

Подскажите пожалуйста, как например сделать так чтобы при входе мыши на ТImage загружалось другая картинка, а при выходе курсора мыши становилась bmp которая была! Без события OnMouseMove!

---

Alexander Panov   (2005-08-17 02:24:00) [1]

Не стесняйся лишний раз почитать предыдущиевопросы, и не только в этом форуме - сервер выдержит такое увеличение трафика.

---

KilkennyCat   (2005-08-13 02:32:00) [2]

TBS_Label = class(TLabel)

вот эту строчку обработать по своему усмотрению, например

TBS_Image = class(TImage)

Зарегистрировать сей компонент и наслаждаться.

---

KilkennyCat   (2005-08-13 02:30:00) [3]

использовать флаг состояния.
соблытия onMouseEnter и onMouseLeave

(*///////////////////////////////////////////////////////*)
(*// Author: Briculski Serge
(*// E-Mail: bsergeATairport.md
(*// Date: 26 Apr 2000
(*//
(*////////////////////////////////////////////////////////*)
unit BS_Label;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type

TBS_Label = class(TLabel)
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('Custom', [TBS_Label]);
end;

{ TBS_Label }

procedure TBS_Label.CMMouseEnter(var Message: TMessage);
begin

if Assigned(FOnMouseEnter) then FOnMouseEnter(Self);
end;

procedure TBS_Label.CMMouseLeave(var Message: TMessage);
begin

if Assigned(FOnMouseLeave) then FOnMouseLeave(Self);
end;

end.

---

Наверх