Discussion :

[Arkal]

Bonjour, j'aimerais pouvoir vider tous les champs d'un formulaire sans avoir à taper TxtChamp1.Clear; ou LblInfo1.Caption := '';

J'aimerais avoir une Procedure qui verifie le type de l'objet et qu'il le vide s'il fait partie des types que je veux vider...

J'ai une procedure semblable qui fait un focusnext comme si j'appuyais sur Tab, mais j'appuie sur enter...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 // Mettre le KeyPreview à True sur le formulaire
  // Permet d'utiliser la clé ENTER comme la clé TAB
  if Key = #13 then
  begin
    // Enlever les mémos (font partis de TCustomEdit)
    if (Form.ActiveControl is TCustomMemo) then
      Exit;
 
    if (Form.ActiveControl is TCustomEdit) or
       (Form.ActiveControl is TCustomComboBox) or
       (Form.ActiveControl is TCustomListBox) or
       (Form.ActiveControl is TCustomCheckBox) or
       (Form.ActiveControl is TRadioButton) or
       (Form.ActiveControl is TDateTimePicker) then
    begin
      Key := #0;
      Form.Perform(WM_NEXTDLGCTL, 0, 0);
    end;
  end;

Une petite question aussi...

Qu'est-ce qui est le mieux d'utiliser pour les champs TEdit?
Text.Clear;
Text.Text := '';

[rsc]

Adapté d'un vieux post de Bloon , ce code devrait mettre à vide le texte de tous les contrôles de ta fiche ayant une propriété Text

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
uses
 TypInfo;
 
var
  i : integer;
 
 
// marche aussi avec controlcount et controls
for i := 0 to ComponentCount - 1 do
begin
  if (GetPropInfo(components[i].ClassInfo, 'Text') <> nil) then
    setPropValue(components[i],'Text','');
end;

Roland

[Arkal]

Merci, ca fonctionne, par contre, j'imagine qu'il doit y avoir possibilité de vérifier si l'objet en question est un bouton par exemple et ne pas vider son caption...

J'ai fait quelques tests, mais je n'arrive pas à trouver, je n'ai pas beaucoup de temps, alors si quelqu'un a une solution, je serais bien content

Merci!

Jonathan

[lil_jam63]

La solution a déjà été donnée ci-dessus:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
if (GetPropInfo(components[i].ClassInfo, 'Text') <> nil) then 
    setPropValue(components[i],'Text','');

Cette ligne veux dire que l'on recherche sur le coposant en cours si il possède une propriété Text, auquel cas on lui affecte un texte vide.
Le TButton ne possède pas de propriété Text mais une propriété caption donc il ne passe pas dans la condition ci-dessus et garde sa valeur.

[Arkal]

oui mais si je veux vider les label qui possede une proprieté caption et non texte, alors je fais quoi pour que mes boutons garde leur caption?

en fait je ne sais pas si je fais correcte d'afficher les infos d'un database dans des labels, y'a peut-etre un objet plus approprié, mais je suis dans un entreprise et je ne peux pas me mettre à modifier l'Application au complet par manque de temps...

[rsc]

C'est sûr que là tu retombes dans un traitement plus détaillé style

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

if Components [i] is TLabel then TLabel (Components [i]) .Caption := '';

à condition qu'il n'y ait pas sur ta Form de Label dont tu veuilles garder le texte

Roland

[Arkal]

ah oui, j'avais pas pensé aux labels qui sont là pour donner une indication sur ce contient le champs :S

bon... je vais essayer de trouver une autre solution, vider les Text ca va faire sauver du temps.

Merci!

[rsc]

Y a bien encore une manière pour rattraper le coup, même si c'est un peu bidouille, c'est d'utiliser le Tag : tu mets à 1 le tag des Labels que tu veux vider, et tu rajoutes

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

...and (Components [i] .Tag = 1)

dans ta condition.

Roland

[Arkal]

Bidouille oui et non ... il faut bien qu'elle serve de temps à autre cette propriété tag :p

Je pense que ca fera l'affaire, je te remercie

[Tardiff Jean-François]

bonjour,

for i := 0 to ComponentCount - 1 do
begin
if not components[i] is TButton then
if (GetPropInfo(components[i].ClassInfo, 'Text') <> nil) then
setPropValue(components[i],'Text','');
end;

[edam]

salut
pour ta premiére proc de faire une chr(13) un chr(9) pourqoi tu test
tu peut directement utilisé la méthode du fac ou directement faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 if key=13 then key:=9;

bien sur celle la déplasse le focus sur les bouton et des bouton vers un autre composant a la différence de la méthode du fac
a toi de voir

[edam]

voir ici en bas de la page
http://www.developpez.net/forums/vie...r=asc&start=15

[edam]

alors