Движение прямоугольника вместе с курсором

Posted by micher under Delphi

Есть компонент PaintBox, на котором размещена картинка. Нужно сделать, чтобы при передвижении указателя мышки по PaintBox’у вместе с ним и двигался прямоугольник, например, зеленый 40х40. Как реализовать?

Stilet

unit Unit1;

{$mode objfpc}{$H+}
interface
uses

Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ExtCtrls;
type
{ TForm1 }
TForm1 = class(TForm)

PaintBox1: TPaintBox;

procedure PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

procedure PaintBox1Paint(Sender: TObject);

private

{ private declarations }

public

{ public declarations }

end;
var  ax,ay:integer;

Form1: TForm1;
implementation
{$R *.lfm}
{ TForm1 }
procedure TForm1.PaintBox1Paint(Sender: TObject);

begin

PaintBox1.Canvas.Brush.Color:=clGreen;

PaintBox1.Canvas.Rectangle(ax-10,ay-10,ax+10,ay+10);

end;
procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,

Y: Integer);

begin

ax:=x; ay:=y;  PaintBox1.Repaint;

end;
end.

тема на форуме

Похожие статьи

• Нарисовать флаг Дании и Швейцарии
• Как нарисовать стрелку в конце эллиптической дуги?
• Как сделать выделение кнопки как в delphi?
• Отрисовка текста на Canvas с перекрытием букв друг друга
• Как сделать на Delphi чтобы персонаж обходил препятствия
• Как сделать буквы на картинке жирными
• Как нарисовать две перпендикулярных линии(уголок)?
• Движение обьекта на заданный угол
• Соединить 2 edit линией
• Объединить 2 первых ячейки по горизонтали в DBgridEh