>請教各位先進,我應如何限制在 TCheckListBox 中最多只能選三個 Items?

試試這個:
在 CheckListBox1 的 OnClickCheck 事件中撰寫下列程式碼:

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
var
  i, cnt: integer;
begin
  cnt := 0;
  for i := 0 to CheckListBox1.Items.Count-1 do
  begin
    if CheckListBox1.Checked[i] then
      cnt := cnt+1;
  end;
  if cnt > 3 then
  begin
    ShowMessage('您只能有三個願望!');
    CheckListBox1.Checked[CheckListBox1.ItemIndex] := false;
  end;
end;