ツリーノードのデータについて (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;