Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];
Вниз
Мастера подскажите! Как отследить уход курсора мышки с 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;
Скачать: [xml.tar.bz2];
Память: 0.76 MB
Время: 3.357 c