Discussion :

[unja2010]

salut j'ai deux composants edit1 et edit2

j'ai programmer edit1 on l'Événement OnEnter comme suite:

Code :

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

1
2
3
4
5
 
procedure Tform1.Edit1Enter(Sender: TObject);
begin
showmessage(' vous êtes connecté à edit1');
end;

Je veux quand En accès au composant edit2 il execute le code de Edit1.OnEnter (comme exemple button1.click)
J'ai essayé le code suivant mais ça n'a pas fonctionné

Code :

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

1
2
3
4
5
6
 
procedure Tform1.Edit2Enter(Sender: TObject);
begin
Edit2.OnEnter := Edit1.onEnter;
Edit1Enter();   //J'ai essayé ça aussi mais ça n'a pas marché
end;

[ShaiLeTroll]

Pour répondre vite fait

Code :

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

1
2
3
4
procedure Tform1.Edit2Enter(Sender: TObject);
begin
  Edit1Enter(Sender);   // c'est surtout qu'il manquait un paramètre pour que cela compile
end;

Différence les erreurs d'exécution et les erreurs de compilation

Autre approche OnCreate pour affecter le Gestionnaire au bon moment (c'est à dire à avant qu'il ne se produise l'évènement)

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure Tform1.Edit1Enter(Sender: TObject);
begin
    if Sender is TEdit then
        ShowMessage(' vous êtes connecté à ' + TEdit(Sender).Name);
end; 
 
procedure Tform1.FormCreate(Sender: TObject);
begin
  Edit2.OnEnter := Edit1.onEnter;
end;

Sache que l'EDI permet d'affecter le même gestionnaire d'évènement avec un nom indiquant sa nature générique
Tu peux aussi faire une méthode privée si tu ne veux pas faire un gestionnaire commun

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
procedure Tform1.Edit1Enter(Sender: TObject);
begin
  if Sender is TEdit then
    EditEnterEventHandler(TEdit(Sender));
end;
 
procedure Tform1.Edit2Enter(Sender: TObject);
begin
  if Sender is TEdit then
    EditEnterEventHandler(TEdit(Sender));
end;
 
procedure Tform1.EditEnterEventHandler(AEdit: TEdit);
begin
  ShowMessage(' vous êtes connecté à ' + AEdit.Name);
end;

[unja2010]

Pour répondre vite fait

Code :

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

1
2
3
4
procedure Tform1.Edit2Enter(Sender: TObject);
begin
  Edit1Enter(Sender);   // c'est surtout qu'il manquait un paramètre pour que cela compile
end;

Différence les erreurs d'exécution et les erreurs de compilation

Autre approche OnCreate pour affecter le Gestionnaire au bon moment (c'est à dire à avant qu'il ne se produise l'évènement)

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure Tform1.Edit1Enter(Sender: TObject);
begin
    if Sender is TEdit then
        ShowMessage(' vous êtes connecté à ' + TEdit(Sender).Name);
end; 
 
procedure Tform1.FormCreate(Sender: TObject);
begin
  Edit2.OnEnter := Edit1.onEnter;
end;

Sache que l'EDI permet d'affecter le même gestionnaire d'évènement avec un nom indiquant sa nature générique
Tu peux aussi faire une méthode privée si tu ne veux pas faire un gestionnaire commun

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
procedure Tform1.Edit1Enter(Sender: TObject);
begin
  if Sender is TEdit then
    EditEnterEventHandler(TEdit(Sender));
end;
 
procedure Tform1.Edit2Enter(Sender: TObject);
begin
  if Sender is TEdit then
    EditEnterEventHandler(TEdit(Sender));
end;
 
procedure Tform1.EditEnterEventHandler(AEdit: TEdit);
begin
  ShowMessage(' vous êtes connecté à ' + AEdit.Name);
end;

merci