Discussion :

[looping]

bonjour,

dans le bout de code qui suit j'aimerais savoir a quoi correspond la variable de type Tcontrol

dans la ligne "LCtrl := TControl(edit1)" : qu'est ce que contient exactement la variable LCtrl ?

merci

Code :

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

1
2
3
4
5
6
7
8
9
 
procedure TForm1.Button2Click(Sender: TObject);
var
Lctrl: Tcontrol;
LVisibleTime:integer;
begin
LCtrl := TControl(edit1);
JvBalloonHint1.ActivateHint(lctrl,'ligne1'+ #13#10 + 'ligne 2 du message','',50000);
end;

[Cl@udius]

Salut

dans la ligne "LCtrl := TControl(edit1)" : qu'est ce que contient exactement la variable LCtrl ?

La variable pointe sur ton contrôle Edit1. Mais je ne pense pas que le transtypage en TControl soit vraiment nécessaire.
L'appel ActiveHint doit attendre comme 1° paramètre un TControl, ceci doit expliquer celà.

@+ Claudius

[ero-sennin]

Salut,

Je viens mettre mon grain de sel
Comme le dit Cl@udius, la variable pointe sur le TEdit, cependant, elle ne sert à rien puisque TEdit descend d'un TControl (bien que ce soit pas direct)

Donc juste ceci suffit :

Code :

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

JvBalloonHint1.ActivateHint(Edit1,'ligne1'+ #13#10 + 'ligne 2 du message','',50000);

A+

[Aka Guymelef]

A l'exception cependant si le paramètre attendu est de type var ou out, dans ce cas je pense que l'utilisation d'une variable du type exact du paramètre est requis sinon on a une erreur du compilateur de type "les types de paramètres var originaux et formels doivent être identiques".

[looping]

salut

ca fonctionne sans le Tcontrol

super !!

merci à tous pour les info


a+