begin process at 2010 02 10 08:30:02
  Trouver un code source :
 
dans
 
Accueil > Forum > 

Archive Delphi

 > 

Archives

 > 

J'AI BESOIN D'AIDE !!!! :O

 > 

Besoin d'aide avec les labels


Derniers messages déposésPoser une question dans le forum ou lancer une discussion

Besoin d'aide avec les labels

jeudi 10 juin 2004 à 02:34:53 | Besoin d'aide avec les labels

Programmeur1987

Je veut, dison que j'ai x label dans ma form et un text box et un button, bon je veut que j'aye a écrire dans mon edit le nom d'un label et quand je click sur mon button il récup le nom dans le edit et fait avec (edit1.text).caption='blabla';

Merci a l'avance

Programmeur1987
jeudi 10 juin 2004 à 11:00:11 | Re : Besoin d'aide avec les labels

jmp77

Membre Club
Salut,

Pourrais tu expliquer un petit plus clairement ton problème car je ne comprends rien du tout et je ne dois pas être le seul je pense;

a+,
JMP.
jeudi 10 juin 2004 à 11:03:42 | Re : Besoin d'aide avec les labels

TheShAmAn


Procedure Tform1.Bouton(Sender: TObject);
var i: integer;
begin
for i:= 0 to ComponentCount - 1 do
if Components[i] is TLabel then
if TLabel(Components[i]).caption = '' then
begin
TLabel(Components[i]).caption := Edit1.text;
exit;
end;
end;


Essaie ca, je te garantie rioen mais bon
jeudi 10 juin 2004 à 14:13:10 | Re : Besoin d'aide avec les labels

Programmeur1987

Je réexplique :
Voila, j'ai une Form, il y a un nombre x de Label sur la form, j'Ai aussi un Edit et un button.
J'entre le nom d'un label dans le edit, j'Appuie sur le button. Dans le OnClick du button je veux
qu'il change le caption du label que j'ai écrit dans mon Edit.

Finalement je veut décider quel label change de caption en cour que laplication run.

Merci a l'Avance

Programmeur1987
jeudi 10 juin 2004 à 15:51:21 | Re : Besoin d'aide avec les labels

jmp77

Membre Club
Ok je comprends mieux par contre je vois pas ce que cela va changer. Puisque si tu saisis dans l'edit le nom du label puis que tu changes le caption du label par ce qu'il y a dans l'edit tu auras toujours la meme chose dans le caption du label..

Enfin voici le morceau de code qu'il te faut. Dans cet exemple en fonction du nom du label que tu saisis le programme remplace le caption du label par 'ESSAI'.

procedure TForm1.Button1Click(Sender: TObject);

var
I : Integer;

begin

{Tu fais une boucle sur le nombre de composant contenu dans la form1}
For I:=0 to Form1.ComponentCount-1 do
begin

{Si le nom du composant est le meme que le nom dans le TEdit alors on change l'intitulé du label par Essai}
If UpperCase(Form1.Components[I].Name) = UpperCase(Edit1.Text) then
(Form1.Components[I] as TLabel).Caption := 'ESSAI';
end;
end;

En espérant avoir pu te dépanner.

Bonne prog,
JMP.
jeudi 10 juin 2004 à 15:51:27 | Re : Besoin d'aide avec les labels

jmp77

Membre Club
Ok je comprends mieux par contre je vois pas ce que cela va changer. Puisque si tu saisis dans l'edit le nom du label puis que tu changes le caption du label par ce qu'il y a dans l'edit tu auras toujours la meme chose dans le caption du label..

Enfin voici le morceau de code qu'il te faut. Dans cet exemple en fonction du nom du label que tu saisis le programme remplace le caption du label par 'ESSAI'.

procedure TForm1.Button1Click(Sender: TObject);

var
I : Integer;

begin

{Tu fais une boucle sur le nombre de composant contenu dans la form1}
For I:=0 to Form1.ComponentCount-1 do
begin

{Si le nom du composant est le meme que le nom dans le TEdit alors on change l'intitulé du label par Essai}
If UpperCase(Form1.Components[I].Name) = UpperCase(Edit1.Text) then
(Form1.Components[I] as TLabel).Caption := 'ESSAI';
end;
end;

En espérant avoir pu te dépanner.

Bonne prog,
JMP.
vendredi 11 juin 2004 à 00:00:13 | Re : Besoin d'aide avec les labels

Programmeur1987

Quand c'est pas mon net qui lache c'est le serveur Code Source :p enfin j'y suis arriver . Effectivement jmp77 je n'Avais pas penser au UpperCase qui étais la solution ...

Je te remerci d'Avoir répondu

Programmeur1987


Cette discussion est classée dans : button, aide, label, text, labels


Répondre à ce message

Sujets en rapport avec ce message

faire pareil avec label [ par didi59650 ] beginif Edit1.Text='delphi' then //Si le texte de l'edit est "delphi" alors...ShowMessage('Mot de passe correct !') //On affiche un mess Effacer plusieurs Label crées dynamiquement [ par Don0Choa ] Bonjour,voila je crée dynamiquement plusieur TLabel, pour les diferancier des autres labels du programme je leu attribut un Tag:=1 ...Cela devrait nor Yahoo Messenger Button Click [ par Valeriu ] Quand un contact de yahoo messenger m'envoye un message et je ne suis pas la je veut que mon program lui envoye une response automatique.J'ai reussi a Besoin d'aide svp [ par tof62bis ] Bonjour,Voila je debute en programmation, je vous explique mon petit soucisVoila je suis entrain de créer un petit programme que je pourrez utiliser s Aide moi quickreport [ par hamza83 ] SLt, tt monde,mon probléme c b1 de la langue arabe sous Quickreprot.l'alignement de text est de gauche a deroit, mi je veut qu'il soit de deroit a gau Insérer dans un TStringGrid [ par chahinerue6 ] bonjour je suis bloque dans mon apllication delphi qui ce compose de 3 edite est dune string grid est d un boutton ajoutes sachant que les colone de s aide [ par bsamine ] je ve afficher un enregistrement d'une table "etudiant" choisi par un edit quand j appuyé sur le button , quelle est le code source de button. Problème Memo à TSringList [ par milomax91 ] Bonjours à vous tous, Pour un projet scolaire je doit sauvegarder le contenu d'un Memo dans un TSringlist. Je vous présente mon code: Var texte:TSrin demande d'aide [ par simoagro ] bonjours tt le monde, en fait j'ai oublié le mot de passe de mon fechier winrar mais je me rappelle du 9 premier caractere il me reste seulement a sav


Nos sponsors


Sondage...

Comparez les prix


HTC Hero

Entre 550€ et 550€

CalendriCode

Février 2010
LMMJVSD
1234567
891011121314
15161718192021
22232425262728

Consulter la suite du CalendriCode

 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 0,312 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales