Как использовать компонент TSimpleGraph?

Question

Как использовать компонент TSimpleGraph?

Я скачал и установил TSimpleGraph компонент, но не могу понять, как его использовать. Я проверил демо, но оно слишком сложное для меня и в Delphi (я использую C ++ Builder), чтобы иметь возможность анализировать то, что мне нужно.

Я пытаюсь создать два прямоугольника, соединенных линией стрелки. Прямоугольники должны иметь возможность перемещаться, когда пользователь перетаскивает их, и стрелка должна двигаться соответствующим образом (указывая от одного прямоугольника к другому). Если бы кто-то мог предоставить мне этот пример (Delphi или C ++ Builder), я думаю, я мог бы выяснить все остальное. Заранее спасибо.

-5

c++delphi diagram vcl

Решение

Другие решения

Других решений пока нет …

Источник

Accepted Answer

procedure TForm1.FormCreate(Sender: TObject);
var
Node: TRectangularNode;
Link: TGraphLink;
begin
FGraph := TSimpleGraph.Create(Self);
FGraph.SetBounds(10, 10, 400, 400);
FGraph.BeginUpdate;
Node := TRectangularNode.Create(FGraph);
Node.SetBounds(25, 25, 100, 50);
Node := TRectangularNode.Create(FGraph);
Node.SetBounds(200, 200, 50, 100);
Link := TGraphLink.Create(FGraph);
Link.Link(FGraph.Objects[0], FGraph.Objects[1]);
FGraph.EndUpdate;
FGraph.Parent := Self;
end;

2