SpeedButton et changement de Glyph dynamique [Résolu]

Question

Posez votre question Signaler

SpeedButton et changement de Glyph dynamique [Résolu]

goroundfr

Messages postés: 2
Date d'inscription: mercredi 3 novembre 2004
Dernière intervention: 14 janvier 2006

- 13 janv. 2006 à 00:44 - Dernière réponse : goroundfr

Messages postés: 2
Date d'inscription: mercredi 3 novembre 2004
Dernière intervention: 14 janvier 2006

- 14 janv. 2006 à 23:43

Delphi / Pascal Posez votre question Signaler

Bonjour à tous,

Je voudrais dans mon programme changer le glyph d'un speed button à l'execution, ce bouton en fait doit afficher 2 glyph alternativement à chaque fois que l'on click dessus.
Voici le code que j'ai saisi, mais cela ne fonctionne pas :

procedure TFormMain.SpeedButtonLockClick(Sender: TObject);
begin

IsLocked := not IsLocked;
If IsLocked then
begin
SpeedButtonLock.Glyph := nil;
SpeedButtonLock.Glyph.Canvas.Draw(0, 0, KeyIcon);
end
else
begin
SpeedButtonLock.Glyph := nil;
SpeedButtonLock.Glyph.Canvas.Draw(0, 0, UnlockedIcon);
end;
end;

A noter que IsLocked et un boolean global, et que KeyIcon et UnLockedIcon sont des TIcon global préalablement créés à la création du form.

Merci pour votre aide,

GoroundFr

Afficher la suite

A voir également:

Delphi speedbutton
Glyph delphi - Meilleures réponses
Delphi glyph - Meilleures réponses
[Delphi XE2] Contrôle des fuites mémoires avec FastMM4 - Conseils pratiques - Delphi
[delphi] déclarer et utiliser les types - Conseils pratiques - Delphi
[delphi] compatibilité et directives - Conseils pratiques - Delphi
[delphi] installer des composants - Conseils pratiques - Delphi
[delphi] optimiser le contenu de vos zips - Conseils pratiques - Delphi

Votre réponse

Répondre au sujet

2 réponses

Signaler Commenter la réponse de goroundfr

goroundfr

Messages postés: 2
Date d'inscription: mercredi 3 novembre 2004
Dernière intervention: 14 janvier 2006

14 janv. 2006 à 23:43

0

Merci

Merci Cirec,

Cela fonctionne effectivement mieux.

GoroundFr

Votre réponse

Répondre au sujet

Posez votre question

Cirec · Accepted Answer · 2006-01-13T01:35:16+0100

Meilleure réponse

Signaler Commenter la réponse de Cirec

Cirec

Messages postés: 4229
Date d'inscription: vendredi 23 juillet 2004
Dernière intervention: 3 août 2018

41 13 janv. 2006 à 01:35

3

Merci

Salut,
Esssaye voir comme ça :

procedure TFormMain.SpeedButtonLockClick(Sender: TObject);
begin
IsLocked := not IsLocked;
If IsLocked then
SpeedButtonLock.Glyph.Assign(KeyIcon) // uniquement des BMP
else
SpeedButtonLock.Glyph.Assign(UnlockedIcon);
end;

@+
Cirec

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 115 internautes nous ont dit merci ce mois-ci

SpeedButton et changement de Glyph dynamique [Résolu]

Votre réponse

Votre réponse

Votre réponse

Vous n'êtes pas encore membre ? inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !