CheckBox con imagenes?

[aitorqrv]

Hola muchas gracias, el codigo que ha posteado ecfisa me funciona "correctamente", mañana tendre que analizar el codigo para intentar ver por que no salen las imagenes cuando se inicia por primeraved el programa...

Supongo que este es otro tema diferente, y si le quero eliminar los bordes al spedd button?

Muchas gracias.

[ecfisa]

Empezado por aitorqrv

... y si le quero eliminar los bordes al spedd button?

Hola aitorqrv.

Si te referis al borde que se presenta cuando se pasa el mouse por encima creo que no, pero podes reemplazar los SpeedButtons por Images con el mismo resultado:

Código Delphi [-]
...
implementation 

procedure TForm1.FormCreate(Sender: TObject);
var
  i: Integer;
  img : TImage;
begin
  for i := 0 to 7 do
  begin
    img := FindComponent('Image'+IntToStr(i+1)) as TImage;
    if Assigned(img) then
    begin
      img.Height:= 16;
      img.Width := 16;
      img.Tag   := 0;    // Apagado por defecto
      ImageList1.GetBitmap(img.Tag, img.Picture.Bitmap)
    end;
  end;
end;

procedure TForm1.Image1Click(Sender: TObject);
begin
 with Sender as TImage do
  begin
    Picture.Bitmap := nil;
    Tag := Integer(not Boolean(Tag));
    ImageList1.GetBitmap(Tag, Picture.Bitmap);
  end;
  //...
end;

Saludos