Discussion :

[Soulama]

Salut et bonne Anné a tous,
ma question:
ya un compo genre TStringGrid pour des buttons? ou bien une Ideé pour pouvoir montrer des buttons dans un Grid?
Merci,

Soulama

[jmjmjm]

Je peux te proposer cette fonction que je viens de créer :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Procedure ButtonGrid(Colonne:integer;ligne:integer;Parent:TWinControl;LeftPremier:integer;TopPremier:integer);
var
Bouton:Array of TButton;
Nombre,i,j,Boucle : integer;
begin
Nombre:=Colonne*ligne;
SetLength(Bouton,Nombre);
Boucle:=0;
for j:=0 to Ligne-1 do begin
  for i:=0 to Colonne-1 do begin
    Bouton[Boucle] := TButton.Create(nil);
    Bouton[Boucle].Caption:='Text';
    Bouton[Boucle].Parent:=Parent;
    Bouton[Boucle].Left:= LeftPremier+(Bouton[Boucle].Width*i);
    Bouton[Boucle].Top:= Toppremier+(Bouton[Boucle].Height*j);
    Inc(Boucle);
    end;
  end;
 
end;

Sa te permet de creer un tableau de bouton biensur tu peux modifier plein d'information en plus comme la taille ... Mais je pense que tu as un debut d'explication sur ce que tu veux faire !!

En ésperant que ca te va ( je viens de la creer) et bonne prog et surtout bonne année !!

[jmjmjm]

Si tu veux pouvoir modifier des informations sur les boutons pense a declarer Bouton:Array of TButton; avant ta fonction

[sjrd]

Il me semble que le composant que tu cherches existe dans la VCL... Mais je sais plus trop lequel et je n'ai pas Delphi sous la main.

[petitcoucou31]

salut ,
Je pense pas avoir vu un tableau de bouton dans la VCL de delphi ! chez d'autres fournisseurs de composant oui.

Une idée de plus , dans le procedure de jmjmjm je rajouterai bien par defaut un parent du type TScrollBox qui serait AlClient dant le parent passé en parametre.

bye

[Soulama]

Merci,
je vais essayé le truc de jmjmjm.
A+

[Soulama]

Merci les gars, c exactement ce que je cherchait.
Soulama

[LadyWasky]

Je confirme : il y a un tableau de boutons dans la JVCL (dans les onglets Jans "je ne sait plus quoi" )

[Soulama]

oui, :trouve:, merci pour linfo

[jmjmjm]

Alors finalement tu as utilisé ma fonction ou celle de la JVCL ??

[Soulama]

jai utilise ta fonction comme base de ma reflection, car je dois dessiner
les Buttons sur toute une fiche(Frame), et aussi je dois permetre a luser
de definir le nombre de button(impair et aussi permit). Exemple:
La nouvelle Procedure sappelle:
CreateCabins(NobredeCabines, Hauteur, Largeur, left, top, PointeronClick)
Elle permet aussi de faire des buttons impair comme jai dit:
Dans ta procedure tu definit le nobre de ligne et cologne, chez moi jai pas besoin de le faire.
Alor pour creer un Array de button qui se compose de 5 buttons je met:
CreateCabins(5, 130, 200, 0, 0, PointeronClick)
c tout.

A+

[jmjmjm]

ok ravis de t'avoir aidé alors. Bonne prog!!