Discussion :

[xenos]

Bonjour,

Je développe un soft avec Delphi 2006 sous WinXP.

J'ai 50 composants qui doivent lancer une même procédure.

Le problème c'est que lorsque le composant lance cette procédure, il doit envoyer une variable qui lui est propre (pex : var lettre := 'a' pour Button1 - var lettre := 'b' pour Button2 - ...).

Ce que je fais actuellement, c'est :

Code :

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

1
2
3
4
procedure TForm1.Button5Click(Sender: TObject);
begin
  Travail(var lettre : string);
end;

Ce que j'aimerais faire, c'est dans l'évènement OnClick du button c'est écrire Procedure_Travail. Et c'est la procédure qui se rend compte de quel button l'a lancé.

Il lui suffit dés lors de trouver la valeur de la variable lettre par exemple dans le hint du button; si précédemment j'ai rajouté la valeur de la variable dans le hint.

Ce qui me permettra :
- de ne pas rajouter des dizaines de lignes dans le code,
- de pouvoir plus facilement faire une mise à jour du logiciel.

D'avance merci pour vos réponses.

[Cl@udius]

Salut,

Jette un coup d'oeil à ce thread, ça devrait t'aider.
http://www.developpez.net/forums/sho...d.php?t=162941

@+

[cadetill]

Tu puex utiliser le Tag pour mettre le valeur numerique de la lettre et, après, avec Chr tu trouverás la lettre

A plus, tu dois utilizer Sender pour obtenir le tag du bouton

Code :

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

1
2
3
4
5
6
7
 
procedure TForm1.Button5Click(Sender: TObject);
begin
  if not (Sender is TButton) then Exit;
 
  Travail(Chr(TButton(Sender).Tag));
end;

A+

[xenos]

Merci pour vos réponses.

J'ai essayé de mettre en application ce que vous avez dit ... mais ça ne fonctionne pas ...

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
Procedure TForm1.Analyse(Sender: TObject);
var
  Domaine : String;
  Composant : TButton;
 
begin
  Composant := TButton(TAction(Sender).ActionComponent);
 
  Domaine := Composant.Hint;
 
  Memo1.Lines.Add(Domaine);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  Analyse(Sender);
end;

J'ai alloué une valeur au Hint du Button3, mais je ne la retrouve pas dans le mémo. J'essaie de comprendre mais j'vois pas où est l'erreur.

Encore merci pour votre aide.

[cadetill]

tu peux faire comme ça

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
20
21
22
 
Procedure TForm1.Analyse(Bouton: TButton);
var
  Domaine : String;
begin
  if Bouton.Hint = '' then
  begin
    ShowMessage('sans hint');
    Exit;
  end;
 
  Domaine := Bouton.Hint;
 
  Memo1.Lines.Add(Domaine);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  if not (Sender is TButton) then Exit;
 
  Analyse(Sender);
end;

ça doit te fonctionner

[xenos]

En lancant le code tel quel il m'envoit une erreur :

E2010 Incompatibles types: 'TButton' and 'TObject'

Mais de tout façon, j'ai peur que l'on dévie de mon idée de départ.

En effet, le problème est que pour le moment je dois écrire pour 50 composants les mêmes lignes de codes, sauf pour la variable.

J'aimerais rajouter dans l'inspecteur d'objet - Events - OnClick une simple procédure, genre Analyse.

Il lance la procédure Analyse qui travail et va juste chercher la valeur du hint du bouton qui l'a lancé.

Cela permettrait de ne pas être sugmergé de lignes de codes quasi identiques ...

Qu'en pensez vous ?

[Rayek]

Peut être plus simple comme ca non ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
Procedure TForm1.Analyse(sText : String);
begin
  Memo1.Lines.Add(sText);
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
  if Sender Is TButton then
    Analyse(TButton(Sender).Hint);
end;

Sinon en corrigeant la petite erreur de Cadetill

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
20
21
22
Procedure TForm1.Analyse(Bouton: TButton);
var
  Domaine : String;
begin
  if Bouton.Hint = '' then
  begin
    ShowMessage('sans hint');
    Exit;
  end;

  Domaine := Bouton.Hint;

  Memo1.Lines.Add(Domaine);
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  if not (Sender is TButton) then Exit;

  Analyse(TButton(Sender));
end;

[cadetill]

Peut être plus simple comme ca non ?
Sinon en corrigeant la petite erreur de Cadetill

[...]

Ups, pardon, c'est vrai

[sjrd]

Vous allez vraiment chercher midi à 14h

Sélectionne tous tes boutons, va dans l'onglet événement, puis dans OnClick, entre Analyse puis tappe sur Enter.

Le gabarit suivant s'ouvre :

Code :

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

1
2
3
4
procedure TForm1.Analyse(Sender: TObject);
begin

end;

Tu n'as plus qu'à le compléter comme suit :

Code :

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

1
2
3
4
procedure TForm1.Analyse(Sender: TObject);
begin
  Memo1.Lines.Add(Chr(TComponent(Sender).Tag));
end;

si tu utilises le Tag, ou, si tu utilises le Hint :

Code :

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

1
2
3
4
procedure TForm1.Analyse(Sender: TObject);
begin
  Memo1.Lines.Add(TButton(Sender).Hint);
end;

[Rayek]

Vous allez vraiment chercher midi à 14h

Sélectionne tous tes boutons, va dans l'onglet événement, puis dans OnClick, entre Analyse puis tappe sur Enter.

Le gabarit suivant s'ouvre :

Code :

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

1
2
3
4
procedure TForm1.Analyse(Sender: TObject);
begin

end;

Tu n'as plus qu'à le compléter comme suit :

Code :

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

1
2
3
4
procedure TForm1.Analyse(Sender: TObject);
begin
  Memo1.Lines.Add(Chr(TComponent(Sender).Tag));
end;

si tu utilises le Tag, ou, si tu utilises le Hint :

Code :

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

1
2
3
4
procedure TForm1.Analyse(Sender: TObject);
begin
  Memo1.Lines.Add(TButton(Sender).Hint);
end;

Disons qu'on lui montre ce qu'il demande :

Ce que j'aimerais faire, c'est dans l'évènement OnClick du button c'est écrire Procedure_Travail. Et c'est la procédure qui se rend compte de quel button l'a lancé.

Même si c'est pas super bien écrit

[xenos]

Un grand merci à tous !!!

La solution que propose sjrd est exactement celle que je recherchais et dont je parlais plus haut :

J'aimerais rajouter dans l'inspecteur d'objet - Events - OnClick une simple procédure, genre Analyse.

Il lance la procédure Analyse qui travail et va juste chercher la valeur du hint du bouton qui l'a lancé.

Désolé si j'ai pas été assez clair ...

Encore un grand merci et bonne programmation à tous !!!