Discussion :

[Chin Tao]

Bonjour à tous,

J'ai, sur une forme, tout un tas de TButton.
Pour modifier leurs Caption, j'utilise ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
procedure TForm1.BD0Click(Sender: TObject);
var k:integer;
    s:string;
begin
    s:=(Sender as TButton).Caption;
    k:=length(s);
    if s[k]='0' then s[k]:='1'
                else s[k]:='0';
    (Sender as TButton).Caption:=s;
end;

qui fonctionne sur les boutons Enable.
Hors, selon les tests de départ, certains boutons deviennent disable.
Je peux cliquer sur ces boutons disable : j'obtiens alors un "Runerror(219)" suivi d'un "Invalid type cast" avec un pointage sur la 1ère ligne de la procédure.
Je ne sais que faire (à part tout ré-écrire différemment).
Merci.

[Chin Tao]

Dimanche, jour du Seigneur, en compagnie de l'Esprit Saint, j'ai entrepris quelques modifications ergonomiques, en me disant que, chemin faisant, je trouverais peut-être quelque chose. Et effectivement, ça a donné à peu près ceci : "Tiens, il y a un évènement OnClick sur ma Form1 !?...Mais...il pointe sur la procédure ! Hou, le méchant évènement OnClick, panpan cucul sur son clicclick."
Tout s'explique. C'est l'erreur bêtasse.

Bonne journée.