Buscar por:

Como colocar imagens em um tstatusbar

Código

{1) Insira um TStatusBar em seu projeto.

2) Faça os "Panels".

3) Vamos supor que queira que o "Panel 2" (Lembre-se que começa com 0 a contagem) receba a imagem, mude a propriedade Style do "Panel 2" para psOwnerDraw. Em seguida, no evento OnDrawPanel coloque:}

var  

  Imagem:TBitmap;

begin

  if Panel = 2 then // Caso seja o "Panel 2"...

  begin

    Imagem:=TBitmap.Create;

    Imagem.LoadFromFile('C:Imagem.Bmp'); // Estou carregando de um arquivo, mas há possibilidades de carregar de um resource também.

    try

      StatusBar1.Canvas.Draw(Rect.Left,Rect.Top,Imagem) // Tenta carregar.

    finally

      Imagem.Free;

    end; // Depois de carregar, libera a imagem.

  end;

end;

{4) Rode o projeto e veja que a imagem em C:Imagem.bmp carregou no Panel 2!}