Procedure détecte le composant qui l'a lancée

Version imprimable

16/06/2006, 08h58
xenos

Procedure détecte le composant qui l'a lancée
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:

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. :D
16/06/2006, 09h04
Cl@udius

Salut,

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

@+
16/06/2006, 09h11
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:

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+

Merci pour vos réponses.

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

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.

tu peux faire comme ça

Code:

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 ;)

16/06/2006, 11h17
xenos

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

Citation:

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 ?

Peut être plus simple comme ca non ?

Code:

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:

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;

16/06/2006, 12h37
cadetill

Citation:

Envoyé par Malatar

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

[...]

Ups, pardon, c'est vrai :P
16/06/2006, 13h45
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:

1 2 3 4 procedure TForm1.Analyse(Sender: TObject); begin end;
Tu n'as plus qu'à le compléter comme suit :
Code:

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:

1 2 3 4 procedure TForm1.Analyse(Sender: TObject); begin Memo1.Lines.Add(TButton(Sender).Hint); end;
16/06/2006, 14h36
Rayek
Citation:
Envoyé par 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:

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

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

Code:

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:

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 :

Citation:

Envoyé par Xenos

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 ;)
16/06/2006, 21h41
xenos

Un grand merci à tous !!!

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

Citation:

Envoyé par xenos

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 !!! :D