TStringGrid et TFrame

Version imprimable

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:

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;

27/08/2023, 09h04
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

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

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

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

27/08/2023, 10h51
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.
27/08/2023, 11h27
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
27/08/2023, 17h09
oneDev

Citation:

Envoyé par 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

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

Je viens d'arriver à faire ce que je voulais avec ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
constructor TFraShowGrid.Create(AOwner: TComponent);
begin
  inherited;
  Edit1.Clear;
  Grid1.Visible := False;
  Height := Edit1.Top + Edit1.Height + 1;
 
  Grid1.Parent := TWinControl(AOwner);
 
  Grid1.Width := Edit1.Width;
end;
 
procedure TFraShowGrid.Button1Click(Sender: TObject);
var
  pt: TPoint;
  x, y: Integer;
begin
  Grid1.Visible := not Grid1.Visible;
 
  if (Grid1.Visible) then
  begin
    Grid1.Top := Top + Edit1.Top + Edit1.Height;
    Grid1.Left := Left + Edit1.Left;
 
    Grid1.BringToFront;
  end;
end;