cs_lugdanum
Messages postés58Date d'inscriptionsamedi 23 novembre 2002StatutMembreDernière intervention12 décembre 2006
-
10 janv. 2003 à 15:53
cs_Amadeus
Messages postés123Date d'inscriptionmercredi 2 janvier 2002StatutMembreDernière intervention15 mars 2004
-
10 janv. 2003 à 17:18
bonjour tout le monde:
voilà j'ai un boutton qui fait descendre (ou monter)l'élément séléctionner dans une listbox avec ce code:
procedure TFormMain.ButtonClick(Sender: TObject);
begin
if ListBox1.ItemIndex <> -1 then
if ListBox1.ItemIndex <> ListBox1.Items.Count-1 then
ListBox1.Items.Exchange(ListBox1.ItemIndex, ListBox1.ItemIndex + 1);
end;
jusqu'à la tout marche, mais dans ma listbox j'ai également des dessins (dessiner directement avec le canvas) en face de chaque élément, et quan je fais descendre ou monter un élément dans la liste et bien son dessin correspondant ne descend pas lui il reste à sa place.
si quelqu'un a une idée, merci d'avance.
euh pendant que j'y suis une autre petit question:
comment faire pour que le caption d'un boutton change si le curseur de la souris est dessus?
par exemple:
->si pas dessus caption:='clique ici'
->si dessus caption:='oui là!' ??
cs_Amadeus
Messages postés123Date d'inscriptionmercredi 2 janvier 2002StatutMembreDernière intervention15 mars 20042 10 janv. 2003 à 17:17
-------------------------------
Réponse au message :
-------------------------------
> bonjour tout le monde:
>
> voilà j'ai un boutton qui fait descendre (ou monter)l'élément séléctionner dans une listbox avec ce code:
>
> procedure TFormMain.ButtonClick(Sender: TObject);
> begin
> if ListBox1.ItemIndex <> -1 then
> if ListBox1.ItemIndex <> ListBox1.Items.Count-1 then
> ListBox1.Items.Exchange(ListBox1.ItemIndex, ListBox1.ItemIndex + 1);
> end;
>
> jusqu'à la tout marche, mais dans ma listbox j'ai également des dessins (dessiner directement avec le canvas) en face de chaque élément, et quan je fais descendre ou monter un élément dans la liste et bien son dessin correspondant ne descend pas lui il reste à sa place.
>
> si quelqu'un a une idée, merci d'avance.
>
>
> euh pendant que j'y suis une autre petit question:
>
> comment faire pour que le caption d'un boutton change si le curseur de la souris est dessus?
> par exemple:
> ->si pas dessus caption:='clique ici'
> ->si dessus caption:='oui là!' ??
>
> merci
> merci
>
cs_Amadeus
Messages postés123Date d'inscriptionmercredi 2 janvier 2002StatutMembreDernière intervention15 mars 20042 10 janv. 2003 à 17:18
Ma réponse concerne le changement de caption d'un bouton selon la position de la souris :
Je ne sais pas trop si s'est propre mais tu pourrais comparer la position de la souris (X, Y) par rapport à la position du bouton: cela reviens à chercher si un point a partiens à un ensembel de point.