Я решил делать не с MouseMove(),а с MouseDown().Переменные X и Y описаны в функции.
но при компилировании выходят ошибки:
"For loop control variable must be simple local variable",несоответствие типов.
причем указывает он на "Y>=a[2,n]".Если бы дествительно было бы несоответсявие
типов,он бы на X ругался...
Короче я в замешательстве,че он ругается?
Код:
type
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
for n:=1 to 30 do
begin
if X>=a[1,n] and X<=(a[1,n]+20) and Y>=a[2,n] and Y<=(a[2,n]+20)
then
begin
a[3,n]:=2
Canvas.Brush.Color := clred;
Canvas.Brush.Style := bsSolid;
Canvas.Rectangle(a[1,n],a[2,n],a[1,n]+l,a[2,n]+l);
end;
end;
end;
end;
|