Скачать: CL | DM;

Можно ли назначать SetWindowRgn для TShape?   Найти похожие ветки 

← →
amochkin   (2002-07-09 07:05) [0]

Господа!
Собственно, сабж.
На TShape.Canvas назначить регион - без проблем. Однако, на мышовые события это никоим образом не влияет.
Может кто-то сталкивался с похожей задачей: прорисовать фигуру свободной формы (я это сделал на TShape) и добиться чтобы OnMouseEnter, OnMouseLeave, OnMouseDown отрабатывались только на этой фигуре (а не на контроле, на котором фигура нарисована).
Что касается OnMouseDown, проблема легко решилась переписыванием обработчика события с условием через PtInRegion.
Но OnMouseLeave и OnMouseEnter просто стали главной головной болью :)

---

← →
reonid ©   (2002-07-09 10:34) [1]

TShape - он же не WinControl, регион ему не назначишь.
Насколько я помню, это делается через обработку сообщения CM_HITTEST;

procedure TMyShape.CMHitTest(var Message: TCMHitTest);
begin
with Message do Result := Integer( PtInRegion(HRgn, XPos, YPos));
end;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.01 c