كيف يمكنني استخدام أعمدة متعددة على TcheckListBox؟

Question

أنا أستخدم عنصر التحكم TCHECKLISTBOX وأرغب في استخدام عمود ثان على هذا، ولكن إلى جانب الأعمدة وخصائص الرأس، لم أجد أي مصدر إدراج محتويات متعددة الألوان ...

يمكن أن تبدو وكأنها سؤال Noobie، لكن مساعدة Delphi لا تحتوي على أي محتوى على هذا، وأحضر عمليات البحث الخاصة بي (على Google وهكذا) الكثير من القمامة ...

أنا فقط بحاجة إلى مثال.

Answer 1

هذا غير ممكن باستخدام TCheckListBox.

ولكن يمكنك استخدام TListView.

تعيين ViewStyle الممتلكات إلى vsReport و Checkboxes ل True.

لإنشاء الأعمدة وإضافة العناصر:

procedure TFormMain.Button1Click(Sender: TObject);
var
  Item1, Item2: TListItem;
begin
  ListView1.Columns.Add.Caption := 'aa';
  ListView1.Columns.Add.Caption := 'bb';

  Item1 := ListView1.Items.Add;
  Item1.Caption := 'item1';
  Item1.SubItems.Add('subitem1');

  Item2 := ListView1.Items.Add;
  Item2.Caption := 'item2';
  Item2.SubItems.Add('subitem2');
  Item2.Checked := True;
end;

يشبه:

عرض القائمة مع مربعات الاختيار http://img638.imageshack.us/img638/4681/clipboard01y.png

Answer 2

يمكن أن أكون مخطئا ولكنني اعتقدت أن الأعمدة كانت للالتفاف بدلا من لأغراض التنسيق.

على سبيل المثال،

قم بتعيين عدد الأعمدة إلى 2 إضافة عناصر 3 أو 4 تغيير حجم المربع عموديا وسترى تدفق العناصر لملء الأعمدة