Hola , tengo un problema con un formulario , el problema es que no se ve el fondo , el codigo es :
Código Delphi
[-]
procedure TForm1.btnTestClick(Sender: TObject);
var
frm: TForm;
myBmp: TBitmap;
jImg: TJpegImage;
Label1: TLabel;
begin
try
begin
frm := TForm.Create(nil);
frm.Caption := 'Title';
frm.Width := 500;
frm.Height := 300;
jImg := TJpegImage.Create;
myBmp := TBitmap.Create;
jImg.LoadFromFile('c:/test.jpg');
myBmp.Assign(jImg);
frm.Brush.Bitmap := myBmp;
Label1 := TLabel.Create(frm);
Label1.Align := alClient;
Label1.Alignment := taCenter;
Label1.Layout := tlCenter;
Label1.Parent := frm;
Label1.Caption := 'hola mundo';
Label1.Font.Color := clRed;
Label1.Font.Size := 27;
Label1.AutoSize := False;
frm.Show;
end
finally
begin
jImg.Free;
myBmp.Free;
end;
end;
end;
Eh logrado rastrear el error , el hecho de que no se vea el fondo es esta razon :
Pero si lo quito no se ve el label.
¿ Como soluciono este error ?