Ver Mensaje Individual
  #1 (permalink)  
Antiguo 01/03/2013, 11:03
unseo1989
 
Fecha de Ingreso: julio-2011
Ubicación: lima
Mensajes: 3
Antigüedad: 12 años, 9 meses
Puntos: 0
Pregunta obtener el texto de un checkboxlist en delphi

Tengo una lista generado por un for
Esta es la funcion que retorna la lista a recorrer
BuscarArchivos(ExpandConstant('{pf32}'+ '\'), 'CallCenter.exe', listado);
Aqui recorro la lista retornado por la funcion de arriba:
scale :=8;
for i := 0 to listado.Count - 1 do
begin
j :=5;
scale :=scale+ (j+15);
CheckListBox := TNewCheckListBox.Create(Page);
CheckListBox.Top := Buttona.Top + Buttona.Height + ScaleY(scale);
CheckListBox.Width := 410;
CheckListBox.Height :=40;
CheckListBox.Parent := Page.Surface;
CheckListBox.OnClick:=@uninstaller;
//aqui pongo el nombre de los checkbox con listado[i]
CheckListBox.AddCheckBox(listado[i], '', 0, False, True, False, True, nil);
end;

llama una funcion uninstaller:

procedure uninstaller(Sender: TObject);
var path: String;

begin
if (Sender is TNewCheckListBox) then
begin
path :=TNewCheckListBox(Sender).Name;
MsgBox(path,mbInformation, MB_OK);

end
end;
*******************


EL RESULTADO DEL FOR SERIA ALGO
ASI:
[checbox1] 'C:\Archivos de programa\CE Remote Tools'
[checbox2]'C:\Archivos de programa\Apache Software Foundation'
[checbox3]'C:\Archivos de programa\AppDeploy'

Necesito su ayuda ,en cada vez que hago click en un TNewCheckListBox me retorne el nombre del texto del TNewCheckListBox?
eh probado con esto:
path :=TNewCheckListBox.SelectedItems

pero me bota un error que reconoce

por favor AYUDENME ...GRACIAS.