Скачать: CL | DM;

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

← →
Витёк   (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)

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

---

← →
Alexander Panov ©   (2005-08-17 02:24) [3]

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

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.039 c