Modifier une caption à partir d'une variable [Résolu]
fredelem
- Messages postés
- 131
- Date d'inscription
- dimanche 29 octobre 2006
- Statut
- Membre
- Dernière intervention
- 30 novembre 2018
- Messages postés
- 4200
- Date d'inscription
- samedi 16 octobre 2004
- Statut
- Modérateur
- Dernière intervention
- 2 janvier 2019
A voir également:
- Caption delphi
- Delphi caption - Meilleures réponses
- Une caption - Meilleures réponses
- Borland cle delphi ✓ - Forum - Delphi / Pascal
- [Delphi XE2] Contrôle des fuites mémoires avec FastMM4 - Conseils pratiques - Delphi
- [delphi] déclarer et utiliser les types - Conseils pratiques - Delphi
- [delphi] compatibilité et directives - Conseils pratiques - Delphi
- [delphi] installer des composants - Conseils pratiques - Delphi
20/25 réponses
Meilleure réponse
- Messages postés
- 1293
- Date d'inscription
- mardi 28 octobre 2003
- Statut
- Contributeur
- Dernière intervention
- 3 juillet 2015
Remarque : Attention, je crois me souvenir que "FindComponent" est sensible à la casse... (A vérifier)
Simon
Simon
Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire
202 internautes nous ont dit merci ce mois-ci
- Messages postés
- 1293
- Date d'inscription
- mardi 28 octobre 2003
- Statut
- Contributeur
- Dernière intervention
- 3 juillet 2015
Salut,
Alors, je ne suis pas sûr d'avoir bien compris ta question. Excuse moi donc si je réponds à côté.
Si c'est juste une histoire de taper moins sur ton clavier, tu peux te faire une procédure (mais ton code perd en compréhension) :
Simon
Alors, je ne suis pas sûr d'avoir bien compris ta question. Excuse moi donc si je réponds à côté.
Si c'est juste une histoire de taper moins sur ton clavier, tu peux te faire une procédure (mais ton code perd en compréhension) :
procedure TMyForm.c(iNumero : integer; sValeur : string);
begin
if FindComponent('Label'+ IntToStr(iNumero)) <> nil
then TLabel(FindComponent('Label'+ IntToStr(iNumero))).Caption := sValeur;
end;
Simon
- Messages postés
- 131
- Date d'inscription
- dimanche 29 octobre 2006
- Statut
- Membre
- Dernière intervention
- 30 novembre 2018
Merci pour ta réponse. Tu as fort bien compris et je t'avoue que peu après avoir envoyé mon message, j'ai eu exactement la même idée: écrire une procédure ayant un nom très court et j'ai pensé moi aussi que le mieux était de l'appeler C. Et voilà: il me suffit d'écrire: C(1,ceci); C(2,cela).
En lecture, il me suffit d'écrire une fonction du même style et c'est gagné.
Mais tout de même, pour la beauté de la chose (et parce que ça m'arrangerait, ce serait trop long d'expliquer pourquoi), je pense que je vais continuer à chercher une solution qui me permettrait de représenter les captions par des raccourcis. Je vais chercher du côté des composants. J'imagine de créer un composant non visible pour ne pas me compliquer la vie, avec un nom très court et avec des propriétés qui s'appelleront c1,c2,etc... Pour chacune de ces propriétés, il y aura une procedure write et une fonction read dans laquelle, je pourrai faire ce que je voudrai. Le boulot à faire m'effraie un peu mais ce serait un bon exercice.
Et malgré tout, si certains ont des idées pour faire ça en passant par des manipulations de la mémoire, ce serait la solution la plus élégante. J'ai un label qui pointe vers une adresse A. À l'adresse pointée par A commence la description de mon label. Imaginons que l'offset de la caption est égal à 0. Le problème est simple: il me faut modifier le contenu de cette adresse pointée. Si seulement, je pouvais écrire MonPointeur: = Label1 (ce qui ne me parait pas absurde puisqu'en fait, un Label, c'est un pointeur), il me suffirait d'écrire: Monpointeur^:=ceci; Allez, zut, je continue à chercher.
En lecture, il me suffit d'écrire une fonction du même style et c'est gagné.
Mais tout de même, pour la beauté de la chose (et parce que ça m'arrangerait, ce serait trop long d'expliquer pourquoi), je pense que je vais continuer à chercher une solution qui me permettrait de représenter les captions par des raccourcis. Je vais chercher du côté des composants. J'imagine de créer un composant non visible pour ne pas me compliquer la vie, avec un nom très court et avec des propriétés qui s'appelleront c1,c2,etc... Pour chacune de ces propriétés, il y aura une procedure write et une fonction read dans laquelle, je pourrai faire ce que je voudrai. Le boulot à faire m'effraie un peu mais ce serait un bon exercice.
Et malgré tout, si certains ont des idées pour faire ça en passant par des manipulations de la mémoire, ce serait la solution la plus élégante. J'ai un label qui pointe vers une adresse A. À l'adresse pointée par A commence la description de mon label. Imaginons que l'offset de la caption est égal à 0. Le problème est simple: il me faut modifier le contenu de cette adresse pointée. Si seulement, je pouvais écrire MonPointeur: = Label1 (ce qui ne me parait pas absurde puisqu'en fait, un Label, c'est un pointeur), il me suffirait d'écrire: Monpointeur^:=ceci; Allez, zut, je continue à chercher.
- Messages postés
- 131
- Date d'inscription
- dimanche 29 octobre 2006
- Statut
- Membre
- Dernière intervention
- 30 novembre 2018
Merci Luc, mais je ne vois pas très bien comment utiliser cette procedure Toto. J'avais pensé à une procédure de ce genre mais plus étoffée pour tout mettre à jour d'un coup:
c1:= ceci;
c2:= cela;
toto;
La procedure toto étant:
..
procedure TForm1.toto;
begin
. setCaption(Label1,c1);
. setCaption(Label2,c2);
. etc...
end;
PS: j'aurais bien aimé mettre ma portion de programme sur fond gris comme tu l'as fait et aussi conserver l'indentation sans ajouter un point.. Tu peux me dire le secret ?
Fred
c1:= ceci;
c2:= cela;
toto;
La procedure toto étant:
..
procedure TForm1.toto;
begin
. setCaption(Label1,c1);
. setCaption(Label2,c2);
. etc...
end;
PS: j'aurais bien aimé mettre ma portion de programme sur fond gris comme tu l'as fait et aussi conserver l'indentation sans ajouter un point.. Tu peux me dire le secret ?
Fred
- Messages postés
- 308
- Date d'inscription
- jeudi 29 septembre 2005
- Statut
- Membre
- Dernière intervention
- 17 septembre 2013
comme ceci :
[[url=http://upandpost.com/image/view/?filename=d%2F2ba73baab4a3f2d5829e1c169e90ed2.jpg ]]Tapez le texte de l'url ici./url
[[url=http://upandpost.com/image/view/?filename=d%2F2ba73baab4a3f2d5829e1c169e90ed2.jpg ]]Tapez le texte de l'url ici./url
- Messages postés
- 308
- Date d'inscription
- jeudi 29 septembre 2005
- Statut
- Membre
- Dernière intervention
- 17 septembre 2013
re,
non, toto n'est pas à suivre, mais quand tu as besoin de changer le caption d'un des tlabel, tu appelles la procedure setCaption avec comme premier paramètre le TLabel en question et en second paramètre le texte à afficher.
Ce n'est qu'un petit exemple de la façon de regrouper certaines actions répétitives. Tu pourrais aussi gérer un tableau de TCaption et afficher le tout dans une boucle, ...
Luc
non, toto n'est pas à suivre, mais quand tu as besoin de changer le caption d'un des tlabel, tu appelles la procedure setCaption avec comme premier paramètre le TLabel en question et en second paramètre le texte à afficher.
Ce n'est qu'un petit exemple de la façon de regrouper certaines actions répétitives. Tu pourrais aussi gérer un tableau de TCaption et afficher le tout dans une boucle, ...
Luc
- Messages postés
- 4200
- Date d'inscription
- samedi 16 octobre 2004
- Statut
- Modérateur
- Dernière intervention
- 2 janvier 2019
Attention "label" est un mot réservé du pascal
Code Delphi :
________________________________________________________
Code Delphi :
procedure setCaptions(aControls: array of TControl; aCaptions: array of string; const aRefresh: boolean= false);
var X,LC,LS: integer;
begin
LC := Length(aControls);
LS := Length(aCaptions);
for X := 0 to LC-1 do
aControls[X].SetTextBuf(PChar(aCaptions[X mod LS]));
if aRefresh then
Application.processMessages;
end;
{ exemples : }
setCaptions([lbl1], ['A']); // lbl1 = "A"
setCaptions([lbl1, btn1], ['A','B']); // lbl1 = A, btn1 = "B"
setCaptions([lbl1, btn1, pnl2], ['-']); // lbl1 = btn1 = pnl2 = "-"
setCaptions([lbl1, lbl2, lbl3, lbl4], ['+','-']); // lbl1 = lbl3 = "+", lbl2 = lbl4 = "-"
// Et en mode LoL
procedure setCaptionsFmt(aControls: array of TControl; aFormats: array of string; aConsts: array of array of const; const aRefresh: boolean= false);
begin
var X,LCtl,LFmt,LCnt: integer;
begin
LCtl := Length(aControls);
LSFmt := Length(aFormats);
LCnt := Length(aConsts);
for X := 0 to LCtl-1 do
aControls[X].SetTextBuf(PChar(format(aFormats[X mod LFmt],aConsts[X mod LCnt)));
if aRefresh then
Application.processMessages;
end;
{exemples :}
setCaptionsFmt(
[lbl1, lbl2], // controls
['Progression %d sur %d', 'Total %.2f%%'], // descripteurs de formats
[
[PgBar1.Position,PgBar1.Max], [PgBar1.Position/PbBar1.Max*100]
]
);
// lbl1 = "Progression 27 sur 524"
// lbl2 = "Total 5.15%"
________________________________________________________
- Messages postés
- 131
- Date d'inscription
- dimanche 29 octobre 2006
- Statut
- Membre
- Dernière intervention
- 30 novembre 2018
Merci pour cette portion de programme nettement plus savante que ce que je fais habituellement. Je vais la tester ce soir même. Je n'y vois pas de pointeurs. Mais c'est pas plus mal.
Le mot Lol m'est inconnu mais tant mieux, c'est comme ça qu'on progresse.
J'étais parti sur la fabrication d'un composant ayant c1,c2,etc... comme propriétés privées et j'avais écrit:
property c1 read getc1 write setc1;
et bien sûr dans la procedure setc1, je comptais mettre un label1.caption:=...
Mais de toutes façons, même si d'autres procédés me donnent satisfaction, j'essaierai de faire quelque chose avec des pointeurs.
@Simon: Findcomponent n'est pas sensible à la casse. Je trouve ça plutôt normal.
Rendez-vous demain pour que je vous dise où j'en suis.
PS: Bien que pas très savant, j'aimerais bien être informé des questions qui arrivent sur ce forum. Que faut-il faire pour cela?
Le mot Lol m'est inconnu mais tant mieux, c'est comme ça qu'on progresse.
J'étais parti sur la fabrication d'un composant ayant c1,c2,etc... comme propriétés privées et j'avais écrit:
property c1 read getc1 write setc1;
et bien sûr dans la procedure setc1, je comptais mettre un label1.caption:=...
Mais de toutes façons, même si d'autres procédés me donnent satisfaction, j'essaierai de faire quelque chose avec des pointeurs.
@Simon: Findcomponent n'est pas sensible à la casse. Je trouve ça plutôt normal.
Rendez-vous demain pour que je vous dise où j'en suis.
PS: Bien que pas très savant, j'aimerais bien être informé des questions qui arrivent sur ce forum. Que faut-il faire pour cela?
- Messages postés
- 131
- Date d'inscription
- dimanche 29 octobre 2006
- Statut
- Membre
- Dernière intervention
- 30 novembre 2018
@Simon: bon, je viendrai voir de temps en temps. C'est dommage qu'on ne puisse pas s'inscrire une bonne fois pour toutes et être informé dès qu'il y a quelque chose.
@fOxi: J'ai essayé le programme. Pas de problème, il marche. Mais pour bien le comprendre, je l'ai dépouillé à l'extrême. Je l'ai réduit à ça:
Comme ça, ça marche encore et je comprends que les contrôles ont une méthode SetTextBuf qui apparemment sert à écrire leur caption. C'est bon à savoir.
Je découvre qu'il n'est pas forcé que tous les arguments annoncés dans la procédure soient présents dans l'appel de cette procédure. Évidemment pour une constante dont on donne la valeur, ça parait normal.
Je découvre aussi qu'un argument peut être un array dont on ne donne pas les dimensions. Tiens, ça, ça pourrait m'être utile pour autre chose: écrire une procédure Sma Acronyme de (ShowMessageAmélioré) qui me permettrait d'écrire des ShowMessage de façon moins fatigante: la syntaxe serait
Sma('Les valeurs de x et y sont ',x,' et ',y); (Au diable les inttostr !)
Mais je ne comprends pas pourquoi il y a un Application.ProcessMessages. D'autant plus qu'il n'est jamais activé puisque ARefresh est fixé à false.
Pour moi, Application.ProcessMessages, ça veut dire: finis le travail que tu as laissé en plan avant d'aller plus loin. Ici, je n'en vois pas l'utilité. Et d'ailleurs, la procédure fonctionne aussi bien sans ça.
@fOxi: J'ai essayé le programme. Pas de problème, il marche. Mais pour bien le comprendre, je l'ai dépouillé à l'extrême. Je l'ai réduit à ça:
PROCEDURE Tform1.SetCaption(C:TControl; S:String{; Const ARefresh: Boolean= False});
Begin
C.SetTextBuf(PChar(S));
//IF ARefresh THEN
// Application.ProcessMessages;
End;
Comme ça, ça marche encore et je comprends que les contrôles ont une méthode SetTextBuf qui apparemment sert à écrire leur caption. C'est bon à savoir.
Je découvre qu'il n'est pas forcé que tous les arguments annoncés dans la procédure soient présents dans l'appel de cette procédure. Évidemment pour une constante dont on donne la valeur, ça parait normal.
Je découvre aussi qu'un argument peut être un array dont on ne donne pas les dimensions. Tiens, ça, ça pourrait m'être utile pour autre chose: écrire une procédure Sma Acronyme de (ShowMessageAmélioré) qui me permettrait d'écrire des ShowMessage de façon moins fatigante: la syntaxe serait
Sma('Les valeurs de x et y sont ',x,' et ',y); (Au diable les inttostr !)
Mais je ne comprends pas pourquoi il y a un Application.ProcessMessages. D'autant plus qu'il n'est jamais activé puisque ARefresh est fixé à false.
Pour moi, Application.ProcessMessages, ça veut dire: finis le travail que tu as laissé en plan avant d'aller plus loin. Ici, je n'en vois pas l'utilité. Et d'ailleurs, la procédure fonctionne aussi bien sans ça.
- Messages postés
- 1293
- Date d'inscription
- mardi 28 octobre 2003
- Statut
- Contributeur
- Dernière intervention
- 3 juillet 2015
Je découvre qu'il n'est pas forcé que tous les arguments annoncés dans la procédure soient présents dans l'appel de cette procédure-> Si tu mets une valeur par défaut à un paramètre de ta fonction, le paramètre est en effet facultatif
Évidemment pour une constante dont on donne la valeur, ça parait normal.-> Non, c'est juste que tu ne peux pas modifier ça valeur dans le corps de ta fonction, le mot "const" ajouté devant un paramètre sert à ça.
Mais je ne comprends pas pourquoi il y a un Application.ProcessMessages. D'autant plus qu'il n'est jamais activé puisque ARefresh est fixé à false.-> Application.ProcessMessages permet de "dépiler" tous les messages windows en attente de traitement avant de continuer ton programme. Dans le cas présent, ça permet de rafraichir le caption de ton label. Si on reprend cette procedure :
PROCEDURE Tform1.SetCaption(C:TControl; S:String; Const ARefresh: Boolean= False);
Begin
C.SetTextBuf(PChar(S));
IF ARefresh THEN
Application.ProcessMessages;
End;
Tu as 3 façons de l'appeler :
1) SetCaption (Label1, 'Coucou'); -> Paramètre ARefresh = false, donc pas d'appel à Application.ProcessMessages;
2) SetCaption (Label1, 'Coucou', false); -> Idem à 1...
3) SetCaption (Label1, 'Coucou', True); -> Paramètre ARefresh = True, donc pas d'appel à Application.ProcessMessages;
Le const t'interdit juste de faire ça :
PROCEDURE Tform1.SetCaption(C:TControl; S:String; Const ARefresh: Boolean= False);
Begin
C.SetTextBuf(PChar(S));
ARefresh := True; // Là, tu dois avoir des problèmes...
IF ARefresh THEN
Application.ProcessMessages;
End;
Simon
- Messages postés
- 131
- Date d'inscription
- dimanche 29 octobre 2006
- Statut
- Membre
- Dernière intervention
- 30 novembre 2018
@Simon: Merci pour toutes ces précisions, je m'étais vraiment mis le doigt dans l'oeil. Dire que j'ai quelques années d'expérience en Delphi et que j'ignorais qu'on pouvait passer un paramètre avec une valeur par défaut. J'avais bien remarqué que Delphi le faisait avec la fonction Booltostr qu'on peut appeler avec 1 seul arguments ou avec 2 mais je ne savais pas que nous, la foultitude, on pouvait faire la même chose.
@Luc: Toi aussi, tu m'apprends quelque chose. Je connaissais Repaint, Refresh mais pas Update.
@FOxi: ton programme m'a fait faire beaucoup de découvertes mais quel est l'avantage d'écrire:
C.SetTextBuf(PChar(S))
plutôt que:
C.Caption:=S; ?
@Luc: Toi aussi, tu m'apprends quelque chose. Je connaissais Repaint, Refresh mais pas Update.
@FOxi: ton programme m'a fait faire beaucoup de découvertes mais quel est l'avantage d'écrire:
C.SetTextBuf(PChar(S))
plutôt que:
C.Caption:=S; ?