この発言は
#01057　凛              さんのツリー表示用のクラス
に対するコメントです



#01056で上げたツリー表示用クラスの使用例です。
フォームに以下のようにコンポーネントを配置
ListBox1 ツリー表示用
Memo1    選択発言内容表示用
Memo2    レス書きエディタ
Edit1    レスのタイトル書き込み用
Edit2    書き込み者名記入用
CheckBox1 ルートの発言にツリー線書くかどうか設定用
SpinEdit1 発言を付ける対象発言番号を設定用
Button1  ツリー表示させるため
Button2  レスをUpするため
 以上です。
TForm1のprivateにKTree:TKTree;を追加しておく。

procedure TForm1.FormCreate(Sender: TObject);
begin
  KTree:=TKTree.Create('c:\tmp');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  ktree.free;
end;
//タイトル一覧を得る
procedure TForm1.Button3Click(Sender: TObject);
begin
  ListBox1.Items.Assign(KTree.loadIdx(0,KTree.count-1));
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  idx:TKTIndex;
begin
  Idx.resTo:=SpinEdit1.Value;
  idx.title:=Edit1.text;
  idx.who:=Edit2.text;
  KTree.AddComment(idx,Memo2.Text);
  Button3.Click;
end;
//ListBox上で選択したタイトルの内容をMemo1に表示
procedure TForm1.ListBox1Click(Sender: TObject);
var
  idx:integer;
begin
  if ListBox1.ItemIndex<>-1 then
  begin
    idx:=Integer(ListBox1.Items.Objects[ListBox1.ItemIndex]);
    Memo1.text:=KTree.loadCtsListIndex(idx);
    SpinEdit1.Value:=KTree.SayIndexOf(idx);
  end;
end;
//ルートの発言にTreeライン書くかどうか設定
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
  KTree.ShowRootLine:=CheckBox1.Checked;
  Button3.Click;
end;
 
                                     00/05/01(月) 16:20 凛(MXB01744)

Original document by 凛              氏 ID:(MXB01744)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。