Discussion :

[BuzzLeclaire]

Bonsior à tous,

Je n'arrive pas à faire fonctionner cette procédure :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TFConversion.Edit2Change(Sender: TObject);
Var
  i: integer;
begin
  For i := 0 to Self.ComponentCount - 1 do
  Begin
    if Tedit(Components[i].Name) <> Edit2 then
      TControl(Components[i]).Enabled := (TEdit(Sender).Text := '');
  End;
end;

Le biut est de rendre Enavled à false tous les composant de ma form si le edit2 est vide sans toucher au enabled du edit 2.

J'ai un probleme sur la ligne
TControl(Components[i]).Enabled := (TEdit(Sender).Text := '');

Merci de vos lumières

[BuzzLeclaire]

Bon,

J'ai corrigé mon erreur mais à l'utilisation cela plante litérallement... lol

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TFConversion.EditDossierChange(Sender: TObject);
Var
  i: integer;
begin
  For i := 0 to Self.ComponentCount - 1 do
  Begin
    if TEdit(Components[i]).Name <> TEdit(Sender).Name then
      TControl(Components[i]).Enabled := (TEdit(Sender).Text = '');
  End;
end;

J'ai une violation d'access à l'adresse xxxxxx

une idée ?

[BuzzLeclaire]

Mdr,

Je me précipite peut être trop vite...


Voilà la correction qui fonctionne trés bien.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TFConversion.EditDossierChange(Sender: TObject);
Var
  i: Integer;
begin
  For i := 0 to Self.ComponentCount - 1 do
  Begin
    if Assigned(Components[i]) And (Components[i] is TControl)
      And (TEdit(Components[i]).Name <> TEdit(Sender).Name)
        And (TsPanel(Components[i]).Name <> sPanel1.name) then
      TControl(Components[i]).Enabled := (TEdit(Sender).Text <> '');
  End;
  TEdit(Sender).Enabled := True;
  TEdit(Sender).Focused;
end;

Mais j'attends quand même l'avis des pro afin de voir si il y a plus simple ou meilleur syntaxiquement.

Merci.