Imagem no formulário

Delphi

11/05/2004

Pessoal

Deixei o Stilus do meu form como MDIFORM. Coloquei uma imagem e na execução não aparece a não ser que coloco Stilu como normal..

Como deveria fazer deixando o meu form como MDIFORM e aparecendo a imagem ??


Rogério


Rogeranalista

Rogeranalista

Curtidas 0

Respostas

Fabio.hc

Fabio.hc

11/05/2004

Tente assim:

  private
   grafico: TBitmap;

procedure TForm1.FormCreate(Sender: TObject);
begin
  grafico:= TBitmap.Create;
  grafico.LoadFromFile (´C:\Imagem.bmp´);
end;

procedure TForm1.FormPaint(Sender: TObject);
begin
  Form1.Canvas.Draw(0,0,grafico);
end;



GOSTEI 0
Marcelo Saviski

Marcelo Saviski

11/05/2004

ou tb:
Form.Brush.Bitmap := Grafico;
seguindo o modelo anterior, ai não precisa do código no OnPaint, da no mesmo


GOSTEI 0
POSTAR