掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
リストボックス間のアイテムを線でつなぐには？ (ID：41813)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
あぁ、また間違えた... メインフォームのOnCreateイベントがだめですね。 発言のプレビューがあればいいなぁ。 // メインフォームのOnCreateイベント procedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin ListBox1.Items.Clear; ListBox2.Items.Clear; for i := 0 to 9 do begin ListBox1.Items.AddObject('Item1-'+IntToStr(i), TObject(9-i)); ListBox2.Items.Add('Item1-'+IntToStr(i)); end; ListBox1.Height := (ListBox1.ItemHeight)*10+4; // アイテムが隠れると、座標がはみ出るので、アイテム数に応じた高さが必要 ListBox2.Height := (ListBox2.ItemHeight)*10+4; ListBox1.ItemIndex := 0; ListBox2.ItemIndex := 0; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.