Como colocar imagens em um tstatusbar

{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!}





p.801