掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
TreeNode (ID:26739)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
AbsoluteIndex を使う例です。 procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode); var i: integer; begin if node=nil then Exit; i:= 0; case node.AbsoluteIndex of 0 : i:= 500;//□うめぼし 1 : i:= 800;//--和歌山産 2 : i:= 200;// --低品質 3 : i:= 500;// --高品質 4 : i:= 400;//--愛媛産 5 : i:= 300;//--中国産 6 : i:= 200;// --敦煌産 7 : i:= 200;// --ハルピン産 8 : i:= 100;// --低品質 9 : i:= 200;// --高品質 else exit; end; Edit1.Text:= '金額 [' +IntToStr(i) +' ] 円'; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.