掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
リストボックス間のアイテムを線でつなぐには？ (ID:41814)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
別のアプローチで <<宣言部その１>> type TListBox =class(StdCtrls.TListBox) private procedure WMSize(var Message: TWMSize); message WM_SIZE; procedure WMMove(var Message: TWMMove); message WM_MOVE; procedure WMVScroll(var Message: TWMVScroll); message WM_VSCROLL; procedure WMMouseWheel(var Message: TWMMouseWheel); message WM_MOUSEWHEEL; protected procedure CreateParams(var Params: TCreateParams); override; procedure DoUpdateLink; public property Caption; end; TListItemLinkObject=class(TCollectionItem) protected //ここでのTListBoxは↑のTListBox FLinkFromListBox: TListBox; FLinkFromIndex: Integer; FLinkToListBox: TListBox; FLinkToIndex: Integer; protected procedure DrawLinkLine(aCanvas: TCanvas); end; TListItemLinkList=class(TCollection) public constructor Create; procedure AddItem(aFromList, aToList: TListBox; aFromIndex, aToIndex: Integer); procedure DrawLinkLine(aCanvas: TCanvas); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.