Imagem de fundo no panel.

[Julihermes Carlos 0]

Ola galera,

 

Eu estou tentando colocar uma imagem de fundo em um panel mas ñ consiguo.

 

eu estou fazendo assim:

procedure TForm1.FormCreate(Sender: TObject);

begin
  Panel1.Brush.Bitmap := TBitmap.Create;
  Panel1.Brush.Bitmap.LoadFromFile('UsuarioFrmLogin.bmp');
end;

A imagen até aparece, mas só por menos de um segundo, aparece e some muio rápido, como se o fundo fosse criado e depois a cor do panel ficasse em cima.

 

Já tentei de tudo e ñ consegui, alguem poderia me ajudar?

 

Desde já obrigado.

[Maikel Scheid 1]

Olá... tenta usar o código conforme segue... testei aqui e funcionou legal.

 

procedure TForm1.Button1Click(Sender: TObject);
var
    Canvas : TCanvas;
    BitMap : TBitMap;
begin
    BitMap := TBitmap.Create;
    OpenDialog1.Filter := 'Imagens (*.bmp)|*.bmp';
    OpenDialog1.Execute;
    BitMap.LoadFromFile(OpenDialog1.FileName);
    Canvas := TCanvas.Create;
    Canvas.handle := GetDC(Panel1.Handle);
    BitBlt(Canvas.Handle,0,0, BitMap.Height, BitMap.Width, BitMap.Canvas.Handle,0,0,SRCCOPY);
    ReleaseDC(Panel1.Handle, Canvas.Handle);
end;

Att