Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.55 MB
Время: 0.03 c
1-68736
Zioma
2002-10-10 10:28
2002.10.21
MDI форма, как модальная...


14-68949
FLIZ
2002-09-27 17:04
2002.10.21
я просто фигел, вот полюбуйтесь


3-68611
Ramzes1
2002-09-27 16:05
2002.10.21
Password


4-69051
Xemax
2002-09-04 19:36
2002.10.21
как полностью отключить Windows File Protection?


1-68816
Ionv
2002-10-10 07:49
2002.10.21
Как вывести на эран число 16-ом виде?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский