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.
