teecweb,
Cita:
Empezado por teecweb
...cada vez que hago click a mi funcion uninstaller me deberia devolver la posicion de los checkboxlist por MsgBox...
|
Revisa este código:
Código Delphi
[-]
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i : Integer;
Index : Integer;
begin
ListBox1.Clear;
for i := 0 to CheckListBox1.Count - 1 do
begin
Index := CheckListBox1.Items.IndexOf(CheckListBox1.Items.Strings[i]);
ListBox1.Items.Add(IntToStr(Index));
end;
end;
El código anterior
devuelve el índice de cada elemento de un control TCheckListBox en un control TListBox.
Revisa este código:
Código Delphi
[-]
procedure TForm1.CheckListBoxClick(Sender: TObject);
var
i : Integer;
begin
for i := 0 to CheckListBox1.Count - 1 do
if CheckListBox1.Selected[i] then
ShowMessage(IntToStr(i));
end;
El código anterior
devuelve el índice de un elemento seleccionado del control TCheckListBox por medio del evento OnClick.
Revisa este código:
Código Delphi
[-]
procedure TForm1.CheckListBoxClick(Sender: TObject);
begin
ShowMessage(IntToStr(CheckListBox1.ItemIndex));
end;
Este código
es una variante más simple del anterior por medio del evento OnClick.
Los códigos anteriores funcionan en Delphi,
quizás funcionen de forma similar en Inno Setup y se puedan adaptar a tu
Instalador.
Espero sea útil
Nelson.