Discussion :

[oneDev]

Bonjour,

Je travaille sur une application VCL avec Delphi 11.1.

J'ai une TFrame qui contient un TEdit et un TButton. Cette frame doit ensuite être utilisée dans plusieurs fenêtre.
Elle prend juste la hauteur du TEdit avec +3 au dessus en en dessous.

Lorsque je clique sur le bouton je souhaite afficher une TStringGrid.
Le problème c'est que du coup, elle reste "bloquée" dans la TFrame.
Je ne sais pas comment faire pour qu'elle apparaissent complétement dans la fenêtre où elle est placée.

Savez-vous comment faire ?

Actuellement, je fais simplement :

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
constructor TFraShowGrid.Create(AOwner: TComponent);
begin
  inherited;
  Edit1.Clear;
  Height := Edit1.Top + Edit1.Height + 3;
 
  Grid1.Visible := False;
  Grid1.Top := Edit1.Top + Edit1.Height;
  Grid1.Left := Edit1.Left;
 
  Grid1.Width := Edit1.Width;
end;
 
procedure TFraShowGrid.Button1Click(Sender: TObject);
begin
  Grid1.Visible := not Grid1.Visible;
end;

[free07]

Bonjour,

Si j'ai bien compris le besoin, il y a la solution de créer la grille dans la fenêtre ( c'est un TForm en fait ? ) et avec le parent du frame faire apparaitre la grille ou pas par le clic du bouton du frame

[SergioMaster]

C'est, en gros, l'équivalent un ComboBox qui est souhaité ?

Je changerai la hauteur de la frame dans l'évènement

Code :

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

1
2
3
4
5
6
procedure TFraShowGrid.Button1Click(Sender: TObject);
begin
  Grid1.Visible := not Grid1.Visible;
  if grid1.visible then Height:= Height+Grid1.Height 
                     else height:=Edit1.Top + Edit1.Height + 3;
end;

j'ajouterai aussi certainement un évènement de grille (onselectcell ou ondblclick ) qui réduirait la frame

[oneDev]

free07, ce serait un peu lourd à gérer car il faudrait créer la Grid dans toutes les fenêtres où j'en aurait besoin.

SergioMaster
Le problème d'agrandir la fenêtre est que cela risque de décaler où masquer les compposants dui se trouvent sous la Frame.
Cela risque de faire des trucs bizarres.

Je viens de tester en mettant un TMemo juste sous la frame, la Grid apparait en dessous du TMemo.

[free07]

Et est ce envisageable de créer une autre frame avec la grille et de gérer les deux frames dans la fiche ? Ce serait moins lourd que de créer une grille dans chaque form

[oneDev]

Et est ce envisageable de créer une autre frame avec la grille et de gérer les deux frames dans la fiche ? Ce serait moins lourd que de créer une grille dans chaque form

Je pensais effectivement créer une frame ou une form juste pour la grid.
Je vais faire des tests comme ça.