Aunque la forma sugerida por Neftalí es valida, tengo otra alternativa.
Primero, establece la propiedad
Style del CheckListBox a
lbOwnerDrawFixed. Luego en el evento
OnDrawItem utilizá un código similar a este:
Código Delphi
[-]procedure TForm2.CheckListBox1DrawItem(Control: TWinControl;
Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
DrawingRect: TRect;
DrawText: String;
begin
DrawingRect := Rect;
DrawText := TCheckListBox(Control).Items[Index];
with TCheckListBox(Control).Canvas do
begin
if Index = 0 then begin
Font.Style := [fsStrikeOut];
end;
FillRect(Rect);
Inc(DrawingRect.Left, 3); TextRect(DrawingRect, DrawText);
end;
end;
El código anterior tachará el texto del primer elemento de la lista.
Saludos.