¿como obtener dos items seleccionados en un checklistbox?

[ecfisa]

Hola danielmj.

Código Delphi [-]
...
procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
var
  i, c: Integer;
begin
  c:= 0;
  with TCheckListBox(Sender) do
  begin
    for i:= Items.Count -1 downto 0 do
      if State[i] = cbChecked then Inc(c);
    if c > 2 then
    begin
      Checked[ItemIndex]:= False;
      raise Exception.Create('Sólo pueden seleccionarse dos colores');
    end;
  end;
end;

procedure TForm1.btnSendToLabelsClick(Sender: TObject);
var
  i,c: Integer;
  s: array[0..1] of string;
begin
  with CheckListBox1 do
  begin
    c:= 0;
    for i:= 0 to Items.Count-1 do
      if Checked[i] then
      begin
        s[c]:= QuotedStr(Items[i]);
        Inc(c);
      end;
  end;
  Label7.Caption:= s[0];
  Label8.Caption:= s[1];
end;

Saludos

[[escafandra]]

El siguiente ejemplo funciona en tiempor real, mientras su pulsa en los items:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  Label7.Caption:= '';
  Label8.Caption:= '';
end;


procedure TForm1.chNameClickCheck(Sender: TObject);
var
  i, j: integer;
begin
  j:=  0;
  for i:= 0 to chName.Items.Count -1 do if chName.Checked[i] then inc(j);

  if j > 2 then
  begin
    Application.MessageBox ('Sólo pueden seleccionarse dos colores','Atención',mb_iconInformation + mb_Ok);
    chName.Checked[chName.ItemIndex]:= false;
  end;

  if chName.Checked[chName.ItemIndex] then
  begin
    if label7.Caption = '' then
      label7.Caption:= QuotedStr(chName.Items[chName.ItemIndex])
    else if label8.Caption = '' then
      label8.Caption:= QuotedStr(chName.Items[chName.ItemIndex]);
  end
  else
  begin
    if label7.Caption = QuotedStr(chName.Items[chName.ItemIndex]) then label7.Caption:= '';
    if label8.Caption = QuotedStr(chName.Items[chName.ItemIndex]) then label8.Caption:= '';
  end;
end;

Saludos.

[danielmj]

Muchas gracias a los dos, yo lo tenía ahí pero no terminaba de arrancar, por ejemplo a mi me salía "amarillo,amarillo,azul", es decir, repite uno de los elementos y luego concatenaba el segundo. Ahora ya va perfecto.

Gracias.