[delphi6]probleme dbgrid sur un tpagecontrol
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:
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?
