[Lothlorien]

Всем привет

Есть графический компонент, изображающий круглую кнопку. Нужно добиться того, чтобы он реагировал на такие события, как: 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 проверяется, находится ли указатель мыши в пределах окружности - контура кнопки:

Код:

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]

Код:

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]

Извиняюсь

Код:

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]

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