| JWhy |
en plus d'un Owner, il faut que tu assignes un Parent a ton bouton sinon il n'apparaitra pas... et il faut bien sur que tu lui definiesses une taille (width et height) et une position (left et top)... si tu veux qu'il se passe qqchose quand tu cliques dessus, n'oublie pas non plus l'evenement OnClick !
il faut aussi definir la taille de ton tableau!
le plus simple est peut-etre d'utiliser un TStringList, qui va te permettre de "stocker" et acceder facilement a tes boutons:
FButtons: TStringlist
dans les "private" de ta form
- créer le dans ton formCreate
FButtons := TStringlist.Create;
for x := 0 to 9 do
for y := 0 to 9 do
FButtons.AddObject(format('%d,%d', [x, y]), TButton.Create(self));
- accede a tes boutons en fonction de leur coordonnee x/y
iButton := FButtons.IndexOf(format('%d,%d', [x, y]));
if iButton <> -1 then
with TButton(FButtons.Objects[iButton]) do
begin
Parent=self;
Width=32;
height=32;
etc...etc...
end;
- vide et detruit ton FButtons dans le formDestroy:
while (FButtons.count <> 0) do
begin
FButtons.Objects[0].free;
FButtons.Delete(0);
end;
FButtons.free;
voila , y'a surement des erreurs, mais c'est une solution possible a ton probleme... |
