Косяки с правой кнопкой мыши

[joker]

Ситуация такая. Есть форма, на форме ScrollBox, на ней лежит Image.
Image не совпадает по размерам со ScrollBox. Проект типа Paint на ООП (c классами инструментов в отдельном модуле).
Проблема в том, что если выйти за область имейджа с зажатой правой кнопкой мыши и отпустить - дельфа не словит событие (вообще не вызывается обработчик). Проверял на 7-ой и на 2006-ой, с левой кнопкой все в порядке. Как сделать так, чтоб события правой кнопки мыши стала нормально обрабатываться.
Я пытался с помощью SetCapture, но у Image, равно как и PaintBox нет хендла, поскольку TGraphicControl потомок TControl. А в случае c использование в качестве параметра SetCapture хендла скроллбокс или формы, все жутко тормозит и виснет.

[alexBlack]

У TImage есть свойство MouseCapture, только оно protected

type
   TMyImage = class(TImage)
   end;

procedure TForm6.Image1MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   TMyImage(Image1).MouseCapture := true;
end;

procedure TForm6.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   TMyImage(Image1).MouseCapture := false;
end;

[joker]

Спасибо, работает. Вот только вопрос, почему при приведении к введенному классу, ничем не отличающимся от предка, становится доступным protected свойство?

[Somebody]

Из help'а:
A protected member is visible anywhere in the module where its class is declared and from any descendant class, regardless of the module where the descendant class appears.

[joker]

Забавно, про то, что в модуле, где будет перегружен класс будут видны его protected св-ва не знал, я думал, если класс перегружен в другом модуле, то там уже вне класса нельзя обратиться к protected св-ву.