Listbox dynamique et procédure OnDrawItem
Résolu
Momo8910
Messages postés
14
Date d'inscription
jeudi 4 décembre 2008
Statut
Membre
Dernière intervention
12 mars 2009
-
3 janv. 2009 à 01:31
Momo8910 Messages postés 14 Date d'inscription jeudi 4 décembre 2008 Statut Membre Dernière intervention 12 mars 2009 - 3 janv. 2009 à 21:50
Momo8910 Messages postés 14 Date d'inscription jeudi 4 décembre 2008 Statut Membre Dernière intervention 12 mars 2009 - 3 janv. 2009 à 21:50
2 réponses
cs_Delphiprog
Messages postés
4297
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
9 janvier 2013
32
3 janv. 2009 à 21:33
3 janv. 2009 à 21:33
Déjà, on va parler de méthode et pas de procédure.
En effet, le pointeur de méthode OnDrawItem attend une méthode et pas une procédure.
Rappel !
TMethod = procedure of object;
Alors qu'une procedure n'est qu'une fonction ne retourant aucune valeur et n'appartenant à personne.
Ce n'est pas être tatillon mais tu apprendras que les mots ont de l'importance quand on désigne quelque chose de précis.
Bon, soit, assez de théorie et revenons-en à ce qui te préoccupe.
Ainsi, OnDrawItem attend qu'on lui affecte une méthode ayant pour signature :
UneMethode(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
Pour te faciliter les choses, tu déclares cette méthode dans le corps de la déclaration de ta fiche !
type
TForm1 = class(TForm)
..
procedure MaProcédure(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
end;
Puis, tu implémentes cette méthode :
procedure TForm1.MaProcédure(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
..
end;
Au moment opportun dans ton code, tu affectes la méthode ci-dessus à l'évènement OnDrawItem .
MyListBox: TListBox;
begin
MyListbox := TListBox.create...
MyListBox.OnDrawItem := MaProcedure;
Et, Ô miracle, le composant sait quels arguments il doit fournir à la méthode MaProcedure.
En espérant t'avoir éclairé et remis sur le droit chemin...
Je te souhaite bonne continuation.
May Delphi be with you !
<hr color="#008000" />Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
En effet, le pointeur de méthode OnDrawItem attend une méthode et pas une procédure.
Rappel !
TMethod = procedure of object;
Alors qu'une procedure n'est qu'une fonction ne retourant aucune valeur et n'appartenant à personne.
Ce n'est pas être tatillon mais tu apprendras que les mots ont de l'importance quand on désigne quelque chose de précis.
Bon, soit, assez de théorie et revenons-en à ce qui te préoccupe.
Ainsi, OnDrawItem attend qu'on lui affecte une méthode ayant pour signature :
UneMethode(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
Pour te faciliter les choses, tu déclares cette méthode dans le corps de la déclaration de ta fiche !
type
TForm1 = class(TForm)
..
procedure MaProcédure(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
end;
Puis, tu implémentes cette méthode :
procedure TForm1.MaProcédure(Control: TWinControl; Index: Integer; Rect: TRect; State: TOwnerDrawState);
begin
..
end;
Au moment opportun dans ton code, tu affectes la méthode ci-dessus à l'évènement OnDrawItem .
MyListBox: TListBox;
begin
MyListbox := TListBox.create...
MyListBox.OnDrawItem := MaProcedure;
Et, Ô miracle, le composant sait quels arguments il doit fournir à la méthode MaProcedure.
En espérant t'avoir éclairé et remis sur le droit chemin...
Je te souhaite bonne continuation.
May Delphi be with you !
<hr color="#008000" />Pensez à cliquer sur Réponse acceptée lorsque la réponse vous convient.
Momo8910
Messages postés
14
Date d'inscription
jeudi 4 décembre 2008
Statut
Membre
Dernière intervention
12 mars 2009
3 janv. 2009 à 21:50
3 janv. 2009 à 21:50
Je te remercie beaucoup :)
En fait, c'était les arguments que je n'arrivais pas à comprendre.. Mais comme tu l'as dit : Ô Miracle :)
Merci beaucoup
En fait, c'était les arguments que je n'arrivais pas à comprendre.. Mais comme tu l'as dit : Ô Miracle :)
Merci beaucoup