var
PointsArray: array of TPoint;
procedure TForm1.Button1Click(Sender: TObject);
begin
Form1.Canvas.Polyline(PointsArray);
SetLength(PointsArray, 0);
end;
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button <> mbLeft then
Exit;
SetLength(PointsArray, Length(PointsArray) + 1);
PointsArray[High(PointsArray)] := Point(X, Y);
end;
Как добавить точку в массив?
Как добавить точку в массив? При щелчке левой кнопкой по форме координаты этой точки добавляются в массив, а потом при помощи Polyline строится ломанная линия по точкам из массива. Пытался как мог, но что то не выходит. SOS!!! :confused:
...
var
Form1: TForm1;
tochki: array of TPoint;
implementation
{$R *.dfm}
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
...
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Canvas.Polyline(tochki);
end;
end.
...
var
Form1: TForm1;
tochki: array of TPoint;
implementation
{$R *.dfm}
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
if Button = mbLeft then
begin
...
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
form1.Canvas.Polyline(tochki);
end;
end.
[QUOTE=mr_smit]Пытался как мог[/QUOTE]
Код:
Tokolist, спасибо ОГРОМНОЕ, все работает.