Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.25;
Скачать: 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 вся ветка

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

Наверх




Память: 0.47 MB
Время: 0.048 c
1-1125639191
bon
2005-09-02 09:33
2005.09.25
Чертёж Autocad на форме


3-1123617870
carmen
2005-08-10 00:04
2005.09.25
Экспорт средствами Firebird


2-1124016175
Гость22
2005-08-14 14:42
2005.09.25
Как определить количество дней между двумя датами?


8-1115819412
sashok
2005-05-11 17:50
2005.09.25
Спектрограмма звука


5-1100683634
Stanislav
2004-11-17 12:27
2005.09.25
Не добавляется компонент