Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.10.21;
Скачать: CL | DM;

Вниз

Мастера подскажите! Как отследить уход курсора мышки с ToolButton   Найти похожие ветки 

 
wer1   (2002-10-11 03:42) [0]

Как отследить уход курсора мышки с ToolButton или с другого элемента, т.е. какое событие при этом происходит.


 
Rouse_ ©   (2002-10-11 03:45) [1]

CM_MOUSELEAVE

Желаю успехов


 
Rouse_ ©   (2002-10-11 03:46) [2]

Вот тебе пример компонента, написал за 3 минуты

unit FWURLLabel;

interface

uses
Windows, Messages, SysUtils, Classes, Controls, StdCtrls, Graphics;

type
TFWURLLabel = class(TLabel)
private
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 }
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents("Fangorn Wizards Lab", [TFWURLLabel]);
end;

{ TFWURLLabel }

procedure TFWURLLabel.CMMouseEnter(var Message: TMessage);
var
Rect: TRect;
begin
Rect := ClientRect;
Canvas.Font := Font;
Canvas.Brush.Color := Color;
Canvas.Font.Color := clRed;
Canvas.FillRect(Rect);
DrawText(Canvas.Handle, PChar(Caption), Length(Caption), Rect,
DT_EXPANDTABS or DT_WORDBREAK or DT_LEFT);
end;

procedure TFWURLLabel.CMMouseLeave(var Message: TMessage);
var
Rect: TRect;
begin
Rect := ClientRect;
Canvas.Font := Font;
Canvas.Brush.Color := Color;
Canvas.FillRect(Rect);
DrawText(Canvas.Handle, PChar(Caption), Length(Caption), Rect,
DT_EXPANDTABS or DT_WORDBREAK or DT_LEFT);
end;

end.

Желаю успехов


 
wer1   (2002-10-11 04:22) [3]

Спасибо.Попробую.



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

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

Наверх




Память: 0.47 MB
Время: 0.02 c
6-68888
cooler.com.ua
2002-08-18 01:17
2002.10.21
Сокеты в Delphi


1-68710
dimonf
2002-10-08 20:41
2002.10.21
Как правильно округлить 3.0299999 в 3.03?


3-68625
SaperXL
2002-09-29 21:19
2002.10.21
организовать раздельный доступ к БД


1-68738
Igor_
2002-10-11 12:10
2002.10.21
Временно отключить прорисовку формы


14-69010
Dmitriy Polskoy
2002-09-30 10:11
2002.10.21
Нужны спрайты