掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ツリーノードのデータについて (ID:10426)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こうしても再現できないですね。 LuppinIIIさんのコードを少し変えただけです。 PStringの値、ということでしたので。さらに、親フォームということなので、コントロールでなくTForm2を用意。 でも、言わんとしたいことは何となくわかります。 Stringはプリミティブでないので、PCHARにしたほうがよいです。 private { Private 宣言 } s: array[0..10] of string; procedure TForm1.TreeView1Click(Sender: TObject); begin ShowMessage(PString(TreeView1.Selected.Data)^); end; procedure TForm1.Button1Click(Sender: TObject); var i:integer; NewNode:TTreeNode; begin for i := 0 to 10 do begin s[i] := IntTostr(i); NewNode := TreeView1.Items.Add(nil,s[i]); NewNode.Data := @s[i]; end; end; procedure TForm1.Button2Click(Sender: TObject); begin TreeView1.Parent := Form2; end; procedure TForm1.Button3Click(Sender: TObject); begin Form2.Show; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.