Question

delphi 6 中checklistbox中的内容被点选后，显示在messagebox

delphi 6 中checklistbox中的内容被点选后，点击button后显示在messagebox中

Answer 1

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, CheckLst;

type
TForm1 = class(TForm)
CheckListBox1: TCheckListBox;
BitBtn1: TBitBtn;
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BitBtn1Click(Sender: TObject);
var
vstr: string;
i: integer;
begin
for i := 0 to checklistbox1.Items.Count - 1 do
if checklistbox1.Checked[i] then
vstr := vStr + checklistbox1.Items.Strings[i] + #13#10;
showmessage(vstr);
end;

end.

窗体文件：

object Form1: TForm1
Left = 192
Top = 140
Width = 870
Height = 500
Caption = 'Form1'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object CheckListBox1: TCheckListBox
Left = 168
Top = 72
Width = 273
Height = 201
ItemHeight = 13
Items.Strings = (
'aa'
'bb'
'cc'
'dd')
TabOrder = 0
end
object BitBtn1: TBitBtn
Left = 480
Top = 176
Width = 75
Height = 25
Caption = 'BitBtn1'
TabOrder = 1
OnClick = BitBtn1Click
end
end

Answer 2

比如是CheckListBox1ShowMessage(CheckListBox1.Items.Strings[CheckListBox1.ItemIndex]);