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

← →
Витёк (2005-08-13 02:19) [0]

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

← →
KilkennyCat © (2005-08-13 02:30) [1]

использовать флаг состояния.
соблытия 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.

← →
KilkennyCat © (2005-08-13 02:32) [2]

TBS_Label = class(TLabel)

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

TBS_Image = class(TImage)

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

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

Обработка события входа и выхода курсора мыши! Найти похожие ветки