Scribd
Importer
4 vues2 pages

Astuces Delphi

Le document décrit l'utilisation du composant TStatusBar dans Delphi pour afficher des informations dans une application. Il explique comment ajouter et configurer des volets, personnaliser l'apparence d'une barre de progression, et gérer des événements comme le remplacement de caractères dans un champ de texte. Des exemples de code sont fournis pour illustrer ces fonctionnalités.

Transféré par

Karim Idri
Copyright
© All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats DOCX, PDF, TXT ou lisez en ligne sur Scribd
4 vues2 pages

Astuces Delphi

Le document décrit l'utilisation du composant TStatusBar dans Delphi pour afficher des informations dans une application. Il explique comment ajouter et configurer des volets, personnaliser l'apparence d'une barre de progression, et gérer des événements comme le remplacement de caractères dans un champ de texte. Des exemples de code sont fournis pour illustrer ces fonctionnalités.

Transféré par

Karim Idri
Copyright
© All Rights Reserved
Nous prenons très au sérieux les droits relatifs au contenu. Si vous pensez qu’il s’agit de votre contenu, signalez une atteinte au droit d’auteur ici.
Formats disponibles
Téléchargez aux formats DOCX, PDF, TXT ou lisez en ligne sur Scribd

Barre d'état

Le composant correspondant existe sur cette version de Delphi, il s'agit de TStatusBar.


C'est une ligne de volets, généralement placée en bas d'une fiche, qui affiche des informations
sur l'application en cours d'exécution. Chaque volet est représenté par un objet TStatusPanel
énuméré dans la propriété Panels. La propriété SimplePanel peut être utilisée pour faire
basculer, à l'exécution, la barre d'état entre l'affichage d'un seul volet et celui de plusieurs
volets.

Mise en place : Placer un composant "TStatusBar"


sur la fiche. Si l'on désire plusieurs volets, il faut
attribuer la propriété "panels". L'éditeur de propriété
se présente sous la forme suivante:

Choisir "Ajouter" pour augmenter le nombre de


subdivisions. On peut accéder au contenu de chaque
panneau en utilisant la propriété "text" de StatusBar1. Panels1[indice]. Les indices partent de
la gauche avec la valeur zéro.
[Link]

Ajouter un composant TStatusbar et TProgressBar.

procedure [Link](Sender: TObject);


begin
[Link]:=StatusBar1; //Affecte le Parent (contrôle fenêtré
contenant le contrôle) du progressbar
[Link]:=0; //Positionnement du statusbar
[Link]:=2;
end;

Changer la couleur der PROGRESSBAR

Uses CommCtrl;

procedure [Link](Sender: TObject);


begin
PostMessage([Link],PBM_SETBARCOLOR,0,clRed);
end;

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);
var Bitmap: TBitMap ;
begin
Bitmap:=[Link];
[Link]('c:\[Link]'); //Fichier bitmap à charger
[Link](Rect);
[Link]([Link],[Link],Bitmap);
[Link];
end;
Ajouter un composant TEdit.

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);


begin
if Key='.' then Key:=',';
end;

Dans cette exemple, le point est remplacé par une virgule.

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
[Link]:=clBlue; //Choix de la couleur
[Link]([Link],[Link],'Ceci est un test') //Ecrit
une chaîne dans le canevas aux coordonnées (X,Y)
end;

Vous aimerez peut-être aussi