リストボックス間のアイテムを線でつなぐには？ (ID:41816)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

使用例
フォームにPaintBoxを全面に配置、ListBoxを２つ用意して適当に
項目を追加しておく。
表示はAccessのリレーションシップ作成済みの項目風になる・・・はず

作成環境 Delphi5
−−−−−−−−−−−−−−−−−−−
unit HogeHoge;

<<宣言部その１>>

type
  TFormListBoxTest = class(TForm)
    ListBoxFloat1: TListBox;
    ListBoxFloat2: TListBox;
    PaintBox1: TPaintBox;
    procedure PaintBox1Paint(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    ListItemLinkList	:TListItemLinkList;
  private

end;

implementation

<<実装部その１>>

{ TFormListBoxTest }
procedure TFormListBoxTest.PaintBox1Paint(Sender: TObject);
begin
  ListItemLinkList.DrawLinkLine(PaintBox1.Canvas);
end;

procedure TFormListBoxTest.FormCreate(Sender: TObject);
begin
  ListItemLinkList := TListItemLinkList.Create;
  ListItemLinkList.AddItem(ListBoxFloat1, ListBoxFloat2, 2, 0);
  ListItemLinkList.AddItem(ListBoxFloat1, ListBoxFloat2, 1, 4);
  ListBoxFloat1.Caption := 'ListBoxFloat1';
  ListBoxFloat2.Caption := 'ListBoxFloat2';
end;

procedure TFormListBoxTest.FormDestroy(Sender: TObject);
begin
  FreeAndNil(ListItemLinkList);
end;

←解決時は質問者本人がここをチェックしてください。

戻る