Работа с канвой в Делфи 7 (нарисовать многоугольник по кликам мышкой)

[Аника Янковская]

Я пробывала, но чего-то не получается, и вообще ничего не рисует.

Я писала так:

procedure TForm2.MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
 BeginPath(Canvas.Handle);
Image1.Canvas.LineTo(X,Y);
Image1.Canvas.MoveTo(X,Y);
end;
if Button = mbRight then
 EndPath(Canvas.Handle);
end;
end.

Но тогда получается, то что на картинке выше.

[Foreseen]

procedure TForm1.FormCreate(Sender: TObject);
begin
 Image1.Canvas.MoveTo(50, 50);
end;

procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin

if Button = mbLeft then
 begin
  BeginPath(Canvas.Handle);
  Image1.Canvas.LineTo(X,Y);
  Image1.Canvas.MoveTo(X,Y);
 end;
if Button = mbRight then
 EndPath(Canvas.Handle);
end;

[Аника Янковская]

Получается почему-то тоже самое, что и до этого было???

[Foreseen]

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form2.Show;
 Unit2.Form2.Image1.Canvas.MoveTo(100, 100);
end;

procedure TForm2.Image1MouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
 if Button = mbLeft then
  begin
   BeginPath(Canvas.Handle);
   Image1.Canvas.LineTo(X,Y);
   Image1.Canvas.MoveTo(X,Y);
  end;
 if Button = mbRight then
  EndPath(Canvas.Handle);
end;

[Аника Янковская]

Спасибо огромное за помощь) А можно ли теперь замкнуть эту кривую??

[Luuzuk]

LineTo() в начальную точку

[Аника Янковская]

Не получится, мне нужно с помощью линий выделить на карте определенную область, начальную координату я не знаю, и не могу ее указать, чтобы линия замкнулась. Может как-то по другому можно сделать?

[Аватар]

А запомнить что мешает начальную точку?

[Foreseen]

Сообщение от Аника Янковская

Не получится, мне нужно с помощью линий выделить на карте определенную область, начальную координату я не знаю, и не могу ее указать, чтобы линия замкнулась. Может как-то по другому можно сделать?

Когда первый раз нажимаешь, ты ее устанавливаешь. Далее, отправляешь координаты в переменную типа TPoint, а в конце построения траектории обращаешься к ней и замыкаешь фигуру.

[Аника Янковская]

А можно написать, как это в тексте программы будет выглядеть, а то я наверно сама не разберусь: как это все записать?