Ver Mensaje Individual
  #2  
Antiguo 28-02-2007
Avatar de joHn je@N
joHn je@N joHn je@N is offline
Miembro
 
Registrado: jun 2005
Ubicación: Toluca, Mexico
Posts: 44
Reputación: 0
joHn je@N Va por buen camino
veamos

Espero te ayude. Nunca he usado ese componente(soy novato pero, con ganas de ayudar). Y logre esto:

Código Delphi [-]
procedure TForm1.BitBtn1Click(Sender: TObject); 
begin    
ckbox.AddItem('item ' + IntToStr(ckbox.Count + 1), self);    
Label1.Caption := 'Has agregado ' + 'item ' + IntToStr(ckbox.Count); 
end;  

procedure TForm1.ckboxClickCheck(Sender: TObject); 
begin    
if ckbox.Checked [ckbox.ItemIndex] then       
Label1.Caption := 'Seleccionado: ' + ckbox.Items.Strings [ckbox.ItemIndex]    
else       
Label1.Caption := 'Deseleccionado: ' + ckbox.Items.Strings [ckbox.ItemIndex]; 
end;

SALUDOS!!!

Última edición por dec fecha: 28-02-2007 a las 09:44:58.
Responder Con Cita