Ver Mensaje Individual
  #1  
Antiguo 06-02-2016
Ramsay Ramsay is offline
Miembro
NULL
 
Registrado: ene 2016
Posts: 104
Reputación: 9
Ramsay Va por buen camino
Fondo en formulario que no se ve

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.OnClose := CloseProc;

      frm.Show;
    end
  finally
    begin
      // frm.Free;
      jImg.Free;
      myBmp.Free;
    end;
  end;
end;

Eh logrado rastrear el error , el hecho de que no se vea el fondo es esta razon :

Código Delphi [-]
Label1.Parent := frm;

Pero si lo quito no se ve el label.

¿ Como soluciono este error ?
Responder Con Cita