Код
var
Form1: TForm1;
MouseButtonDown: Boolean= false;
StartX, StartY: Integer;
implementation
procedure TForm1.PaintBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
MouseButtonDown:=true;
StartX:=X;
StartY:=Y;
end;
procedure TForm1.PaintBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
Form1.Caption:=Format ('Координаты: x=%d, y=%d ' , [X, Y]); // Координаты в заголовке.
if MouseButtonDown=true then
PaintBox1.Canvas.Ellipse(StartX, Starty, X, Y);
end;
procedure TForm1.PaintBox1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
MouseButtonDown:=false;
end;
Но от элипса остается след, если нажатую мышку двигать назад. Как избавиться от этого следа?
Сообщение отредактировано: Shmaniche -