Discussion :

[Ducmonster]

Bonjour

Je cherche quelques conseils car débutant en DELPHI, et je rencontre le probleme suivant :

Au départ de mon appli j'ai un composant graphique créé sur Form1, préparamétré au travers de l'inspecteur d'objet. A l'évènement OnDblClick j associe une procédure xxxxx. (Jusque la No Problem )

En fonctionnement, je suis amené à créer un deuxieme composant voire plus et pour cela j'utilise la methode create de ce
composant. Je definis FORM1 comme étant Parent car tous ces composants grahiques sont indépendants.
Mon Pb : Je ne trouve pas la maniere de proceder pour associer cette meme procedure xxxxx aux composants crees par la suite.
Ou, comment puis je associer la procedure xxxxx par soft, car je ne souhaite pas utiliser l'inspecteur d'objets au fur de la création de ceux ci.

Objectif : je souhaiterais pouvoir sélectionner et définir le composant Graphique Actif simplement par un double clic sur ce dernier.

Si l'un d'entre vous peut m'aider, Merci d'avance.

PS : je suis toujours en Delphi 3.

[Pedro]

Salut
Si tu as déjà une méthode genre MaMethode(Sender: TObject); définie pour un compo quelconque et que tu voudrais l'utiliser pour réagir à des compos créés virtuellement, il te suffit de faire:
Exemple:

Code :

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

1
2
 
  MonComposant.OnEvenementCompatible:=MaMethode;

Je dis évènement compatible car, comme tu as pu le remarquer, les méthodes d'évènements n'ont pas tous les mêmes paramètres
Bon courage

[anapurna]

salut

le premier conseil lire la faq avant de poser la question
le deuxieme faire une recherche (GETA)

enfin si les reponse trouve ne te convienne pas tu pose ta question ici

sinon le probleme a ete maintes fois dit ici

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
 
TmyForm = Cl...
 
 Procedure onmyDblClick(Sender : Tobject);
...
End;
 
Procedure TmyForm.onmyDblClick(Sender : Tobject);
begin
  // Je fait ce que j'ai a faire ;)
end;
 
Constructor TmyForm.FormCreate (Sender : Tobject);
Begin
   MonCompo.onDblClick := onmyDblClick;
end;

@+ Phil

[qi130]

Exemple de création d'un TMemo avec affectation de propriétés et de procédures aux événements:

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
With TMemo.Create(Self) Do begin
              Parent:=Proprio;
              Left:=533;
              Top:=31+offset;
              Width:=121;
              Height:=21;
              MaxLength:=200;
              ScrollBars:=ssVertical;
              Name:='Mem'+idx+'1';
              Lines.Clear;
              Enabled:=False;
              OnEnter:=Mem1A11Enter;   //  <<--- ici
              OnExit:=Mem1A11Exit;       //   <<-- et là
              OnChange:=Mem1A11Count;
              OnMouseUp:=Memo1stAccess;
           end;