Скачать: 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 вся ветка

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



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