Objet courantRésolu

Question

Bonjour,

Sur une fiche delphi j'ai plusieurs boutons et j'ai le meme traitement pour l'evenement OnEnter de chaque bouton. le hic c'est que dans le traitement j'utilise le nom du bouton.
Ce qui me pose probleme car je voudrais mettre mon traitement dans une procedure, et que cette procedure soit appeller par l'evenement OnEnter de chaque bouton.

Avez vous une solution ?

Meri d'avance

Cirec · Accepted Answer

Essaye comme ça :

procedure TFiche_Recapitulatif_chantier.BTN_Modifier_Nom_ChantierEnter(
  Sender: TObject);
begin
If Sender is TButton Then
With Sender as TButton doBegin
  BackColor :=  ColorBtnEnter;
  ForeColor := ColorBtnEnterFont;
 End ;
end;

 
@+
Cirec

<hr size ="2" />

Cirec · Answer

Salut,

si tu nous donnais un petit bout de code qu'on puisse mieux comprendre ce que tu veux faire,
ainsi on pourra certainement t'aider. 

 
@+
Cirec

<hr size="2" />

japee · Answer

Hi,

Oui, on comprend mieux avec un bout de code, on le dira jamais assez... 
A priori avec Sender as TButton ou TButton(Sender) dans ta procedure, ça devrait le faire, non ?

yvessimon · Answer

Bonjour,

TButton(sender).name   ou autre

TSpeedButton(sender).name   ou autre


 






yvessimon

cs_Loda · Answer

salut,

en passant:
je te deconseille l'utilisation du .name. utilise plustot le .tag.

A+

Loda
<hr size="2" width="100%" />Se poser les bonnes questions est le premier pas pour trouver les bonnes réponses.

cs_sempere · Answer

Merci pour les réponses aussi rapide
voila un bout de mon code :

voila les procedures de mes 2 boutons : 

je voudrais mettre le code en couleur dans une procedure car sur certaine fiche j'ai beaucoup de boutons

procedure TFiche_Recapitulatif_chantier.BTN_Modifier_Nom_ChantierEnter(
  Sender: TObject);
begin
BTN_Modifier_Nom_Chantier.BackColor := ColorBTNEnter;
BTN_Modifier_Nom_Chantier.ForeColor :=  ColorBTNEnterFont;   //Couleur du text
end;

procedure TFiche_Recapitulatif_chantier.BTN_Modifier_ADREnter(
  Sender: TObject);
begin
BTN_Modifier_ADR.BackColor := ColorBTNEnter;
BTN_Modifier_ADR.ForeColor :=  ColorBTNEnterFont;   //Couleur du text
end;

Objet courant

6 réponses

Votre réponse

Discussions similaires