Cita:
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; 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