Créer un petit conseil.

Télécharger le projet
Commenter

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
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (Glorkonline)