Cargar un bitmap
Delphi
Publicado el 12 de Junio del 2003 por Esteban (17 códigos)
11.493 visualizaciones desde el 12 de Junio del 2003
Código que nos muestra como cargar una imagen bitmap, en un formulario, mediante código.
Iniciar sesiónCrear cuenta
Crear cuenta
Comentarios sobre la versión: Versión 1 (1)
procedure TForm1.FormResize(Sender: TObject);
Var
Mi_Img : TBitMap;
begin
Mi_Img := TBitMap.Create;
try
Mi_Img.LoadFromFile('bitMap.bmp'); //Archivo
//Mi_Img.LoadFromResourceName(Handle, 'MI_IMAGEN'); //Recurso
Canvas.Draw(1,1, Mi_Img);
finally
Mi_Img.Free;
end;
end;