如何使用TSimpleGraph组件

How to use TSimpleGraph component?

本文关键字：组件 TSimpleGraph 何使用      更新时间：2023-10-16

我已经下载并安装了TSimpleGraph组件，但无法真正理解如何使用它。我检查了演示，但它对我和Delphi（我使用C++Builder）来说太复杂了，无法解析我需要的东西。

我正在尝试创建两个用箭头线连接的矩形。当用户拖动矩形时，矩形应该能够移动，箭头应该相应地移动（从一个矩形指向另一个矩形）。如果有人能给我提供这个例子（Delphi或C++Builder），我相信我能解决剩下的问题。提前谢谢。

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;
相关文章：