Question

我已下载并安装了TSimpleGraph组件，但无法真正了解如何使用它。我已经检查过这个演示，但它对我来说太复杂了，而且在Delphi（我使用C ++ Builder）中能够剖析出我需要的东西。

我正在尝试创建两个与箭头线连接的矩形。当用户拖动它们时，矩形应该能够移动，并且箭头应该相应地移动（从一个矩形指向另一个矩形）。如果有人可以提供我这个例子（Delphi或C ++ Builder），我相信我可以弄清楚剩下的。提前谢谢。

Answer 1

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;

如何使用TSimpleGraph组件？

1 个答案: