Discussion :

[dtcSearch]

Bonjour,

voilà mon problème, j'ai un TAdvStringGrid dans lequel je crée des boutons dynamique, pour ça, j'utilise:

Code :

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

sgMaGrid.CellControls[1, I] := TAdvGlowButton.Create(sgMaGrid.CellControls[1, I])

le hic, c'est que le bouton nouvellement crée prend toute la taille de la cellule.

j'ai ensuite crée une fonction juste avant la création du Control

Code :

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

1
2
3
4
5
6
7
8
9
function TS01_Form.MaFonctionModifBouton(bouton : TAdvGlowButton): TAdvGlowButton;
begin
   bouton.Caption := 'CLICK';
   bouton.Width := 40;
   bouton.Height := 18;
   bouton.OnClick := boutonClick;
 
   Result := bouton;
end;

Code :

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

sgMaGrid.CellControls[1, I] := MaFonctionModifBouton(TAdvGlowButton.Create(sgMaGrid.CellControls[1, I]));

Mais pareil, j'ai testé en spécifiant AutoSize à False, en spécifiant des marges, des ancrors, et des alignements, mais rien.

Auriez vous une explication (j'ai peur que ce soit l'utilisation d'un conteneur qui pose problème...)

Merci d'avance

[popo]

Mais pareil, j'ai testé en spécifiant AutoSize à False, en spécifiant des marges, des ancrors, et des alignements, mais rien

Il faut se méfier avec les anchors. Si tu définit Left et Right, cela a pour effet d'agrandir ton bouton !

[dtcSearch]

Bonjour,

j'avais repris par rapport à d'autre déjà présent (sur la Form) qui était en akLeft et akTop.

[Jipété]

Salut !

j'ai ensuite crée une fonction juste avant la création du Control

Code :

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

1
2
3
4
5
6
7
8
9
function TS01_Form.MaFonctionModifBouton(bouton : TAdvGlowButton): TAdvGlowButton;
begin
   bouton.Caption := 'CLICK';
   bouton.Width := 40;
   bouton.Height := 18;
   bouton.OnClick := boutonClick;
 
   Result := bouton;
end;

Euh, manque pas le parent de ton bouton ?

Code :

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

bouton.Parent := ... ;

[dtcSearch]

Je l'affecte ICI CellControls est de type TControl

Code :

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

sgMaGrid.CellControls[1, I] := TAdvGlowButton.Create(sgMaGrid.CellControls[1, I])

[Jipété]

Bon, je connaissais pas cette construction,

OK, je sors, vite, !

[ero-sennin]

Je ne vois toujours pas à tu as mis le parent

Ce que tu définis en faisant ceci, c'est le Owner, c'est à dire qui sera responsable de la destruction de ton objet. Non ?

[BuzzLeclaire]

Salut,

Utilise Setbounds du bouton pour le placer ou tu veux avec la taille que tu veux.