Delphipage

Ajouter un composant TStatusBar. Créez un nouveau panel à la statusbar. Pour cela, sélectionnez le composant statusbar que vous venez d'ajouter. Allez dans l'inspecteur d'objet sur la propriété "Panels" et double cliquer dessus. Mettez la propriété "Style" du panel à "psOwnerDraw".

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
Panel: TStatusPanel; const Rect: TRect);
begin
StatusBar1.Canvas.Font.Color:=clBlue; //Choix de la couleur
StatusBar1.Canvas.TextOut(Rect.Left,Rect.Top,'Ceci est un test') //Ecrit une chaîne dans le canevas aux coordonnées (X,Y)
end;