процедура реагирующая на положение указателя мыши

← →
novi (2004-03-13 22:30) [0]

Уважаемые мастера! Помогите пожалуйста.
Условие задачи следующее: на форме расположено три круга разного цвета. Сначала они прозрачные, но по наведению мыши в круг они должны заливаться своим цветом, после увода мыши должны стать опять прозрачными.
Написал функцию определения мыши, а процедуру закраски ...
function Svet(var s:TBrushStyle):TBrushStyle;
var r, cx, cy, d:real; shp: TShape;
x, y: integer;
begin
r:= shp.Width/2;
cx:= shp.Width/2;
cy:= shp.Height/2;
d:= sqrt(sqr(x-cx)+sqr(y-cy));
if d<r then s:= bsSolid else s:= bsClear;
end;

← →
Mihey © (2004-03-13 22:53) [1]

И какой вопрос то???

← →
novi (2004-03-13 23:01) [2]

Не получается закрасить.

← →
Mihey © (2004-03-14 00:41) [3]

Есть:

var r, cx, cy, d:real; shp: TShape;
x, y: integer;
begin
r:= shp.Width/2;
cx:= shp.Width/2;
cy:= shp.Height/2;
d:= sqrt(sqr(x-cx)+sqr(y-cy));
if d<r then s:= bsSolid else s:= bsClear;
end;

Надо:

var r, cx, cy, d:real; shp: TShape;
x, y: integer;
begin
r:= shp.Width/2;
cx:= shp.Width/2;
cy:= shp.Height/2;
d:= sqrt(sqr(x-cx)+sqr(y-cy));
if d<r then Result := bsSolid else Result := bsClear;
end;

можешь кстати TShape использовать, тогда вообще ничего считать не нужно...

Телепатироване подсказывает какие события при находе и исходе?
Так есть такие в дельфях - onMouseLeave, onMouseEnter - только осталось их работать заставить.

процедура реагирующая на положение указателя мыши Найти похожие ветки