TreeNode (ID:26738)

名前

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

本文

お返事ありがとうございます。

ヘルプを読み改めて組んでみましたが・・・やはり理解ができませんでした。
TTreeNode.AbsoluteIndex
TTreeNode.ItemId
の２点を試してみましたがコンパイルエラーでした。

getnodeat(x,y)
の解説ページにてサンプルを見て処理をくんだのですが、これもうまくいきませんでした。。

具体的には以下のような処理を組みたいと思っています。

//----------------------------------------------------------------
□うめぼし
   |
    --和歌山産
   |  |
   |    --低品質
   |   |
   |    --高品質
   |
   |
    --愛媛産
   |
    --中国産
       |
        --敦煌産
       |
        --ハルピン産
          |
           --低品質
          |
           --高品質

金額  [           ]円

・・・

税    [           ]円
合計金額[         ]円

いずれかのノードをクリックすると金額等がエディットに表示されるというものです。

procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode);
begin
  if TreeView1.Selected.Text = 'うめぼし' then
  begin
    edt_kingaku.text := '500';
    //以下略
  end;

if TreeView1.Selected.Text = '和歌山産' then
  begin
    edt_kingaku.text := '800';
    //以下略
  end;

if TreeView1.Selected.Text = '敦煌産' then
  begin
    edt_kingaku.text := '200';
    //以下略
  end;

end;

上記のソースを組んでみましたが、これでは和歌山産の低品質のものと敦煌の低品質なものを区別することはできませんよね・・？

答えを頂くのは自分の力にもならないので、もう少しヒントを頂けたら幸いです。
よろしくお願いします。

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

戻る