SpeedButton et changement de Glyph dynamiqueRésolu

Question

Bonjour &#224; tous,

Je voudrais dans mon programme changer le glyph d'un speed button &#224; l'execution, ce bouton en fait doit afficher 2 glyph alternativement &#224; 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&#233;alablement cr&#233;&#233;s &#224; la cr&#233;ation du form.

Merci pour votre aide,

GoroundFr

Cirec · Accepted Answer

Salut,
Esssaye voir comme &#231;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

goroundfr · Answer

Merci Cirec,

Cela fonctionne effectivement mieux.

GoroundFr

SpeedButton et changement de Glyph dynamique

2 réponses

Votre réponse

Discussions similaires