Créer un petit conseil.

Soyez le premier à donner votre avis sur cette source.

Vue 5 029 fois - Téléchargée 712 fois

Description

Voici mon premier code source, donc il y a certainement moyen de l'améliorer.

Source / Exemple :


Voici donc ce qu'il faut faire pour créer un petit conseil :

Créer une Shape (le nom DOIT etre Shape1) (n'importe ou sur le TForm).
Créer un Label (le nom DOIT etre Label1) (n'importe ou sur le TForm).

Introduire ces deux procedures :

procedure PutConseil(messagetxt : String);
var I : LongInt;
J : Longint;
begin
with form1 do begin
Label1.Caption := messagetxt;
I := Label1.Width;
I := I div 2;
J := Shape1.Width;
J := J div 2;
J := J - I;
Label1.Left := J;
end;
end;

//----------------------------------------

procedure InitializeConseil(messagetxt : String);
begin
with form1 do begin
Label1.Color := clWhite;
Label1.Font.Color := clBlue;
Shape1.Top := 0;
Shape1.Left := 0;
Shape1.Width := Form1.Width - 8;
Shape1.Pen.Color := clBlue;
Label1.Top := 24;
end;
PutConseil(messagetxt);
end;

ensuite, dans la propriété OnCreate du TForm, tapez :
InitializeConseil('Votreconseilpourleformulaire');

puis pour chaque élément (y compris le TForm), tapez dans la propriété OnMouseMove :
PutConseil('Votreconseilpourl''element');

Conclusion :


Glorkonline --- www.Glorkonline.be.tf --- Glorkonline@hotmail.com

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cs_internaute
Messages postés
8
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
8 août 2005
-
Salut.
C'est une bonne idée... surtout de centrer le texte.
Je n'aurai pas fais mieux...
Moi aussi je débute. Il faut un début à tout

Moi j'aurais peut-être fais un peu différament...

comme suis:

procedure PutConseil(messagetxt : string);
begin
form1.label1.caption:=messagetxt;
end;

et pour l'autre

procedure InitializeConseil(messagetxt : string);
begin
With form1 do begin
Label1.Color := clWhite;
Label1.Font.Color := clBlue;
Shape1.Top := 0;
Shape1.Left := 0;
Shape1.Width := Form1.Width - 8;
Shape1.Pen.Color := clBlue;
Label1.Top := 24;
label1.Left:=1;
label1.Width:=shape1.Width-2;
label1.AutoSize:=false;
label1.Alignment:=tacenter;
end;
PutConseil(messagetxt);
end;

je reprend le meme principe sauf que je dis que le label ne se met plus a la bonne dimension tout seul et que le texte est centré.

Mais je pense que cela peut-encore être amélioré...
Glorkonline
Messages postés
42
Date d'inscription
samedi 24 mai 2003
Statut
Membre
Dernière intervention
1 janvier 2005
-
La, tu viens de m'apprendre quelque chose, je ne savais pas que la propriété AutoSize d'un TLabel empêchait sa redimension automatique ... Bien que le nom l'indique.
cs_internaute
Messages postés
8
Date d'inscription
jeudi 6 juin 2002
Statut
Membre
Dernière intervention
8 août 2005
-
Cela sers à ca un forum. ;-)
Je débute aussi, mais y'a pas bc de commentaire sur mes sources...
tu peux aller les voirs si tu veux. C'est celles qui ont été placées juste avant toi sur la première page du site

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.