[Lothlorien]

Всем привет

Есть графический компонент, изображающий круглую кнопку. Нужно добиться того, чтобы он реагировал на такие события, как: 1) нажатие левой кнопки мыши, 2) отпускание той же кнопки, 3) наведение и 4) снятие указателя.

Код:

1 2 3 4

procedure DoMouseOver(var Msg: TWMMouse); message WM_MOUSEMOVE; procedure DoMouseLeft(var Msg: TWMMouse); message WM_MOUSELEAVE; procedure DoMouseDown(var Msg: TWMMouse); message WM_LBUTTONDOWN; procedure DoMouseUp(var Msg: TWMMouse); message WM_LBUTTONUP;

В процедуре DoMouseLeft проверяется, находится ли указатель мыши в пределах окружности - контура кнопки:

Код:

1 2 3 4

if ((sqrt(sqr(Width div 2 - Msg.XPos) + sqr(Height div 2 - Msg.YPos))) <= Width div 2) then {... указатель находится в пределах контура} else {... "притворяемся", что указатель не наведён на кнопку}

При тестировании программы обнаружил, что кнопка вообще не реагирует на сообщение WM_MOUSELEAVE, ЗАТО прекрасно слушается сообщения WM_MOUSEMOVE, когда указатель мыши выходит за пределы круга, обозначающего кнопку.

В чём может быть дело? Подскажите, пожалуйста, в чём моя ошибка. Заранее благодарен за Ваше внимание

[angvelem]

Не проще обработать все сообщения в WndProc компонента?

[Lothlorien]

Таким методом раньше не пользовался (нехватка знаний и опыта )...
Если можно, опишите вкратце, какие преимущества это даёт, а дополнительные сведения по этой теме уже постараюсь найти самостоятельно )

[angvelem]

Будут доступны ВСЕ сообщения приходящие окну и их не потребуется дополнительно описывать.

[Lothlorien]

Понял, развернусь в этом направлении ))

Но всё же - почему контрол может не реагировать на WM_MOUSELEAVE?

[angvelem]

Нужно видеть код компонента, чтобы сказать это.

[Lothlorien]

Код:

1 2 3 4 5 6 7

procedure TRoundBtn.DoMouseLeft(var Msg: TWMMouse); begin   if fActive then   begin     Picture.Bitmap.Assign(fFace);   end; end;

fActive - переменная, эквивалентна fEnabled (но контрол остаётся Enabled постоянно, просто изменяется его внешний вид). fFace - вид кнопки в "состоянии покоя". Края залиты синим цветом RGB 0,0,255, он установлен как прозрачный цвет и невидим (мы видим лишь круглую область)

[angvelem]

Я говорил про код компонента, а не процедуры в него входящей.

[Lothlorien]

Извиняюсь

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

TRoundBtn = class (TImage) private fFace, fOver, fDown, fDisb: TBitmap; fPath: ShortString; fActive: boolean; protected procedure DoMouseOver(var Msg: TWMMouse);   message WM_MOUSEMOVE;  procedure DoMouseLeft(var Msg: TWMMouse);   message WM_MOUSELEAVE;    procedure DoMouseDown(var Msg: TWMMouse); message WM_LBUTTONDOWN; procedure DoMouseUp(var Msg: TWMMouse);   message WM_LBUTTONUP; procedure SetActive(V: boolean); procedure SetPath(V: ShortString); public constructor New(AOwner: TWinControl; ThePath: ShortString);  procedure Kill; property Active: boolean read fActive write SetActive;  property Path: ShortString read fPath write SetPath; end;

Графика кнопки загружается из res-файла. Кнопки различаются цветовой гаммой, которая указывается в свойстве Path (например, 'RBT_RED').

[angvelem]

Контрол TSpeedButton также как и TImage основан на классе TGraphicControl, но там нужные мышинные события уже реализованы. Можно взять его за основу или посмотреть сам принцип реализации.

[Lothlorien]

Да, TSpeedButton удобен в этом случае, но мои тараканы в голове требуют именно круглый контрол С моим скудным опытом проще всего реализовать круглую кнопку на базе TImage...

Раньше я уже использовал подобный подход в самодельной игрушке; там, как ни странно, контролы прекрасно реагировали на все действия мышью... хотя код тот же самый

Словом, буду разбираться с внутренностями TSpeedButton, авось наткнусь на решение своей задачи Спасибо за совет )

[angvelem]

Не изобретайте велосипед, посмотрите архив.

[Lothlorien]

Преогромнейшее Вам спасибо