Ver Mensaje Individual
  #2  
Antiguo 29-10-2003
Avatar de delphi.com.ar
delphi.com.ar delphi.com.ar is offline
Federico Firenze
 
Registrado: may 2003
Ubicación: Buenos Aires, Argentina *
Posts: 5.934
Reputación: 27
delphi.com.ar Va por buen camino
Puedes hacerlo con el mismo BitBtn:

Código:
uses
  JPeg;

procedure TForm1.FormCreate(Sender: TObject);
var
  Jpeg: TJPEGImage;
begin
  Jpeg := TJPEGImage.Create;
  try
    JPeg.LoadFromFile('C:\Mis documentos\baggrund.jpg');
    BitBtn1.Glyph.Height := Jpeg.Height;
    BitBtn1.Glyph.Width := Jpeg.Width;
    BitBtn1.Glyph.Canvas.Draw(1, 1, JPeg);
  finally
    Jpeg.Free;
  end;
end;
Saludos!
__________________
delphi.com.ar

Dedique el tiempo suficiente para formular su pregunta si pretende que alguien dedique su tiempo en contestarla.
Responder Con Cita