Ok jachguate ya resolvi lo de la imagen, efectivamente yo lo tenia a 2, lo coloque en 1 y ya se ve la imagen pero aun no consigo que esta cambie de acuerdo a la seleccion hecha. de hecho estoy haciendo esto:
Código Delphi
[-]
procedure TForm1.ListBox1Click(Sender: TObject);
begin
bbtnComando.Enabled := True;
case ListBox1.ItemIndex of
0: begin
imagelist1.GetBitmap(4, bbtnComando.glyph);
bbtnComando.Caption := ListBox1.Items[ListBox1.ItemIndex];
end;
1: begin
imagelist1.GetBitmap(2, bbtnComando.glyph);
bbtnComando.Caption := ListBox1.Items[ListBox1.ItemIndex];
end;
2: begin
imagelist1.GetBitmap(10, bbtnComando.glyph);
bbtnComando.Caption := ListBox1.Items[ListBox1.ItemIndex];
end;
3: begin
imagelist1.GetBitmap(4, bbtnComando.glyph);
bbtnComando.Caption := ListBox1.Items[ListBox1.ItemIndex];
end;
4: begin
imagelist1.GetBitmap(2, bbtnComando.glyph);
bbtnComando.Caption := ListBox1.Items[ListBox1.ItemIndex];
end;
5: begin
imagelist1.GetBitmap(10, bbtnComando.glyph);
bbtnComando.Caption := ListBox1.Items[ListBox1.ItemIndex];
end;
6: begin
imagelist1.GetBitmap(0, bbtnComando.glyph);
bbtnComando.Caption := ListBox1.Items[ListBox1.ItemIndex];
end;
7: begin
imagelist1.GetBitmap(6, bbtnComando.glyph);
bbtnComando.Caption := ListBox1.Items[ListBox1.ItemIndex];
end;
end;
end;
segun lei la declaracion de ImageList.GetBitmap es:
Código Delphi
[-]ImageList.GetBitmap(Index:integer;Image:bitmaP);
en este caso entiendo que index se refiere al indice de la imagen en el imagelist.
Nuevamente gracias