Discussion :

[Arrown]

Bonjour à vous, j'ai une petite colle.

A la création d'une form, j'initialise le text d'un Tedit à '' mais cette action effectue l'événement de modification (en l'occurence, le OnChange).

Je ne veux pas qu'il l'effectue à la création alors y a t'il une méthode simple comme le BeginUpdate et EndUpdate (qui n'est pas valable pour les edits malheureusement).

Solution possible mais nul :
- Faire avant

Code :

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

1
2
3
4
5
6
7
var
  NE : TNotyfyEvent;
begin
NE := Edit1.onchange;
Edit1.onchange := nil;
Edit1.text := '';
Edit1.onchange := NE;

- Gérer cela dans le ONCHANGE de l'édit (pas assez générique)

Code :

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

if edit1.componentstate = csLoading then exit;

Voilà, donc ma question est comment puis-je initialiser mes composant en désactivant les évènement "utilisateur" (pas le oncreate par exemple) ?

Faire un edit1.enable := false; puis à true effectue l'événement.

Merci

[Tardiff Jean-François]

Bonjour,

A mas connaissance il n'existe pas d'ordre implementer dans les winControl.

Pour mas part, j'utilise une variable global, et j'utilise un test dans chaque on change.

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
 
 
procedure TMyForm.Create(Sender : TObject);
begin
 
  FAutoChange := True;
end;
 
Procedure TMyForm.Edit1Onchange(Sender: TObject);
begin
  if not FAutoChange then exit;
  FautoCahange := True;
  try
     Edit1.Text := Edit1.text + 'A';
   // Pour cette démonstration, je constate que si le ne test pas FAUtoChange au debut,  je rajoute un caratère ('A') ce qui declenche un OnChange qui r'ajoute un caractère qui declenche un OnChange etc..
  finally
    FautoChange := False;
  end;
end;

Tout comme votre propre solution, c'est un petit peux "bidouille", mais cela fonctionne.

[edam]

autre solution on utilisant les message avec sendmessage ou Perform;

Code :

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

1
2
3
4
5
6
 
var s:string;
begin
     s:='mon text'#0;
     edit1.Perform(WM_SETTEXT,0,integer(@s[1]));
end;

[Pierre Castelain]

Une autre solution qui part du principe que seules les modifications faites par l'utilisateur doivent être prises en compte :

Code :

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

1
2
3
4
5
6
 
procedure TForm1.Edit1Change(Sender: TObject);
begin
  if Edit1.Focused then
    // Code à exécuter
end;

[Arrown]

Bon, ok, a première vue, il n'y a pas de solution autre que le Cas par Cas.

Je ne met pas le TAG Résolu, car peut être que quelqu'un va avoir une idée de génie.

Merci a tous.

[edam]

Bon, ok, a première vue, il n'y a pas de solution autre que le Cas par Cas.

????????????????

[Arrown]

????????????????

Par cas par cas, je veux dire qu'il faut modifier le OnChange de chaque Edit (si ils n'ont pas le même event ONCHANGE).

Enfin, remarque, la solution est qu'il n'y a pas de begin update ou similaire. Donc, ok, je met le TAG.

Merci

[edam]

autre solution on utilisant les message avec sendmessage ou Perform;

Code :

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

1
2
3
4
5
6
 
var s:string;
begin
     s:='mon text'#0;
     edit1.Perform(WM_SETTEXT,0,integer(@s[1]));
end;

cette solution n'est pas utilisé dans onchange mais ne génere pas cette évenement si tu veux changer le text

[Arrown]

Ha, ok, j'avais pas capté, merci. Je vais donc tester cela tout de suite.
Merci Edam ;-)

[Arrown]

Exact, ca marche parfaitement !
Et pour les TCheckbox, c'est la même méthode mais comment ?

[lil_jam63]

Pourquoi ne pas l'initialiser en mode conception directement

[Arrown]

Juste par flemme de citer tous les compo au démarrage. Là, je fais juste
ClearControl(Self); // Il il fait tous les compos qui ont le parent Self

Et si en cours d'exécution je veux remettre a 0 tous les compo du panel1, même procédé

ClearControl(Panel1);

Ca met très utile maintenant.

[edam]

Code :

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

1
2
3
 
checkbox1.prform(bm_setcheck,i,0);
i=0 --> checked=0, i=1--> cheked=1,i=3-->cheked=3

pour plus d'information voir BM_SETCHECK