bonjour, je souhaiterais faire un formulaire qui possede 26 pagecontrol(un pour chaque lettre de l alphabet) et sur chacun de ces pagecontol il y aurait un dbgrid avec les données d'une table(patient) dont le nom commence par la lettre du pagecontrol;
pour créer les 26 pagecontrol je fais:
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
 
procedure TForm24.FormCreate(Sender: TObject);
const
  TabTitles: array[0..25] of ShortString = ('A', 'B', 'C', 'D','E','F','G','H','I','J','K','L','M','N','O','P','Q','R','S','T','U','V','W','X','Y','Z' );
var
  i: Integer;
  PageControl1: TPageControl;
begin
  PageControl1 := TPageControl.Create(Self);
  PageControl1.Parent := Self;
  PageControl1.Align := alClient;
  for i := Low(TabTitles) to High(TabTitles) do
    with TTabSheet.Create(PageControl1) do
    begin
      PageControl := PageControl1;
 
      Name := 'lettre'+TabTitles[i];
      Caption := TabTitles[i];
 
   end;
mais je n arrive pas a mettre un dbgrid sur ces pagecontrol.
quelqu un aurait il une idée?