Ver Mensaje Individual
  #7  
Antiguo 04-03-2013
Avatar de nlsgarcia
[nlsgarcia] nlsgarcia is offline
Miembro Premium
 
Registrado: feb 2007
Ubicación: Caracas, Venezuela
Posts: 2.206
Reputación: 21
nlsgarcia Tiene un aura espectacularnlsgarcia Tiene un aura espectacular
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.

Última edición por nlsgarcia fecha: 04-03-2013 a las 05:27:39.
Responder Con Cita