{
複数選択されたリストボックス項目のタイトルをメモコントロールに
表示します。
}
procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
begin
  // 複数選択モードにする
  ListBox1.MultiSelect:= True;
  // テスト用のリスト項目を適当に作成する
  for i:= 1 to 10 do ListBox1.Items.Add('項目No.' + IntToStr(i));
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Memo1.Clear;
  // ListBoxの選択された項目のタイトルをMemoに表示する
  with ListBox1 do for i:= 0 to Items.Count - 1 do
    if Selected[i] then Memo1.Lines.Add(Items[i]);
end;


         　　○ 心を打つ美しい文書作りは「えるの〜と」 ○
                 http://member.nifty.ne.jp/h-triton/
        Avalon's Friendly Crew #80008  H-Triton (^^) since 1996

Original document by H-Triton        氏 ID:(QZV11422)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。