Главная страница
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.041 c
5-1099875575
AZ
2004-11-08 03:59
2005.09.25
Сохранение свойства типа array - линкер не пущает


4-1122578548
Galiaf
2005-07-28 23:22
2005.09.25
Простенький файловый менеджер.


3-1123057899
surkis
2005-08-03 12:31
2005.09.25
Поскажите компоненты и репорты


1-1125940732
hgd
2005-09-05 21:18
2005.09.25
Записать файл на сервер


4-1122545484
ingine
2005-07-28 14:11
2005.09.25
Проблема с потоками