interaction dynamique avec l'interface graphique

Question

Bonjour



Mon programme contient de nombreux champ(environs 100), et je dois
faire des actions sur tous ces champs(si tel ou tel truc, mettre en
gras par exemple), ou r&#233;cup&#233;rer des donn&#233;es...



ya moyen de le faire dynamiquement, en mettant nous m&#234;me le nom de
l'attribut, ou du nom du edit que l'on veut modifier dans une variable
et d'y acc&#233;der avec cette variable, exemple





(je met pas les d&#233;clarations)



nom_de_mon_edit:='a'+inttostr(3);



form1.nom_de_mon_edit.text:=text_dans_une_variable;



ca me serait vraiment utile... car sinon ca serait vraiment long et
assez stupide de devoir les faire les uns apr&#232;s les autres... 



merci!!!

vaughan · Answer

Pour mettre en gras en une instruction un ensemble de contr&#244;le :
Mettre un TPanel et dans ce TPanel mettre les contr&#244;les, il te suffira de mette la font du TPanel en gras et tout tes contr&#244;les h&#233;riteront du gras.

Maintenant si tu dois lors d'une action utilisateur faire une modif identique fonctionnelle pour plusieurs contr&#244;les. Il te suffi de d&#233;velopper tes composants (Tedit, ...) et dans chaque composants ajouter une m&#233;thode qui effectue cette action. Cette m&#233;thode sera appel&#233; par un Postmessage dans ton application et dans tes contr&#244;les (TMyEdit,...) tu r&#233;ccup&#232;rera ton message pour action.

vaughan

Nargzul · Answer

bon, d&#233;j&#224; je peux pas faire ce que t'as dis avec le tpanel, parce que
c'est pas toutes les cases que je veux mettre en gras(et c'est qu'un
exemple), donc ca joue pas trop...



Pour ta deuxi&#232;me proposition, je vois pas en quoi ca change le
probl&#232;me, faut quand meme pouvoir g&#233;n&#233;rer apr&#232;s le nom de la m&#233;thode
dynamiquement...



et en plus j'aimerais par exemple faire appel &#224; des des composant style
rave(et la dedans, j'aurais carr&#233;ment le double des champs &#224; remplir...)



Je vois pas comment faire...



Ca serait vraiment b&#234;te de devoir le faire &#224; la main...

vaughan · Answer

Pour chaque composants tu ecrits une proc&#233;dure message windows


TMyLabel = class(TLabel)


Public


   Procedure MonTrt(var msg:TMessage);message WM_Monmessage;


End;

Et dans cette procedure tu fait ton traitement sp&#233;cifique

Apr&#232;s dans ton application tu fais un postmessage de WM_Monmessage et tout les contr&#244;les qui ont la proc&#233;dure MonTrt agissent en m&#234;me temps en une ligne de code !!!

vaughan

Nargzul · Answer

d'accord, mais si pour chaque composant il faut &#233;crire une fonction, ou
est-ce que c'est plus pratique que de faire dans une fonction un
traitement pour chaque truc... 



en plus je sias pas ce que c'est un postmessage et un WM_monmessage, ...    



ya pas quelques chose d'un peu plus simple??? Mon exemple, ya pas moyen de faire qu'il marche? M&#234;me PHP le permet...

atomefougere · Answer

Essaye de regarder du cot&#233; de la m&#233;thode FindComponent. Elle permet de retrouver un control &#224; partir de son nom. Avec la reflexion tu peux d&#233;terminer le type de contr&#244;le et acc&#233;der &#224; ses propri&#233;t&#233;s en fonction.

Par exemple :

[...]
var
   currComponent : TComponent;
begin
[...]
   nom_de_mon_edit := 'a'+inttostr(3);
   currComponent := Self.FindComponent(nom_de_mon_edit);
   if assigned(currComponent) then
   begin
      if currComponent is TEdit then
      begin
         TEdit(currComponent ).Text := 'blahblah';
      end else if currComponent is TButton then
      begin
         TButton(currComponent ).Caption := 'tototo';
      end;
      // etc
   end; 
[...]

Nargzul · Answer

sympa!!!



je savais pas, c'est quoi le if assigned?



Merci bien ca va etre plus simple!!!

atomefougere · Answer

La fonction Assigned() permet de savoir si ton objet est assign&#233;, c'est &#224; dire diff&#233;rent de nil. En effet, la fonction FindComponent() n'est pas toujours sens&#233;e trouver un composant.

Tu as aussi la propri&#233;t&#233; Components de ta form qui permet de r&#233;cup&#233;rer tous les composants, pour les it&#233;rer par exemple.

for i := 0 to self.Components.count-1 do 
begin
   // self.components[i]
end;

Nargzul · Answer

non non ton premier truc marche &#224; merveille!

Interaction dynamique avec l'interface graphique

8 réponses

Votre réponse

Discussions similaires