Tema: Tachar una palabra en delphi
Ver Mensaje Individual
  #18  
Antiguo 19-03-2013
[maeyanes] maeyanes is offline
Capo de los Capos
  
Registrado: may 2003
Ubicación: Campeche, México
Posts: 2.732
Reputación: 24
maeyanes Va por buen camino
Hola...

Prueba de esta forma:

Código Delphi [-]
procedure StrokeOutItem(I: Integer);
begin
  if CheckListBox1.Checked[i] and (CheckListBox1.ItemObject[i] is TCheckBox) then
    TCheckBox(CheckListBox1.ItemObject[i]).Font.Style := [fsStrikeOut]
end;


Saludos...
__________________
Lee la Guía de Estilo antes que cualquier cosa. - Twitter
Responder Con Cita