Discussion :

[kameleon80]

Bonjour à tous,
Je suis un peu débutant sur delphi, j ai voulu créé une petite application, ou j ai besoin de créer d'une manière dynamique un dbctrlgrid(1 ligne et 3 colones) avec un dbtext. Le problème c'est que tout fonctionne bien sauf que le dbtext n est apparu que sur le premier panel de dbctrlgrid, et pas sur l ensemble des panels, j ai pensé à la valeur parent de dbtext:

Code :

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

1
2
Dbtext1 := tdbtext.create(dbctrlgrid1);
Dbtext1.parent := dbctrlgrid1;

Mais ca marche pas, je ne sais pas quoi lui attribué comme valeur, merci d'avance pour toute petite idée. Bonne soirée

[ShaiLeTroll]

C'est surtout étrange comme besoin le Tdbctrlgrid est justement pour conçu pour éviter de gérer cela manuellement

Force un Grid.Invalidate();
Il ne doit pas comprendre qu'il faut qu'il dessine le composant les autres Panels

As-tu affecté aussi le DataSource et DataField

[kameleon80]

merci ShaiLeTroll pour ta réponse, malheureusement ça marche toujours pas avec invalidate, sinon je vous explique mon problème:
j ai différentes catégories du plat, et on a des menus:
un menu peut avoir 2 pizza au choix par exemple, 1 boisson et 1 dessert, donc pour ce menu là, j ai besoin d'un dbctrlgrid pour choisir la première pizza, et un autre dbctrlgrid pour choisir la 2eme pizza et encore 2 dbctrlgrid pour choisir la boisson et le dessert, sachant que le menu change de catégorie et de nombre de plat, et si vous avez une autre solution pour ce problème c'est avec un grand plaisir

[ShaiLeTroll]

Ton code génére des Tdbctrlgrid à la volée, Ok, je comprends mieux

Est-ce que le Panel d'un dbctrlgrid est le même pour pizza, boisson ou dessert ?
il y a un :
- DBEdit Nom (Reine, Calzone | Soda, Limo, Eau | Glace, Cookie)
- DBImage, comme dans la démo FMX de Thierry Laborde qui gère justement une Pizzeria
- DBCombo pour la Taille (Junior, Senior | 33cl 1,5L | 100ml, 500ml), ...

Tu peux faire une TFrame (oui, j'ai osé) ou alors une TForm ancrée (BorderStyle bsNone et Parant ...)

Dans la TFrame\TForm, tu designe un Tdbctrlgrid pouvant gérer un élément générique, tu joue sur Visible si tu veux caché certains DBControls
Tu affecte le bon DataSource et les bon DataField pour utiliser la bonne table \ bonne colonne (rien à faire si tout est dans la même)
C'est plus simple que de vouloir tout positionner par Code !

[kameleon80]

merci encore mais malheureusement j'ai besoin des composants qui permette la rapidité d'utilisation avec les clic(comme les bouton, ou panel..etc), voila un exemple qui genere le meme probleme que le mien:

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
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
procedure TfrmMenuPlat.FormCreate(Sender: TObject);
var
requette1: TQuery;
DSrequette1: TDataSource;
DBCtrlGrid1: TDBCtrlGrid;
DBText1: TDBText;
SqlQuery: String;
begin
 
    //requette sql
    requette1 := TQuery.Create(frmMenuPlat);
    requette1.DatabaseName := 'rolin';
    requette1.Close;
    requette1.SQL.Clear;
    SqlQuery := 'SELECT Code_plat, Nom FROM plats WHERE Code_catégorie = 3';
    requette1.SQL.Add(SqlQuery);
    requette1.ExecSQL;
    requette1.Active := true;
 
    //datasource
    DSrequette1                 := TDataSource.Create(frmMenuPlat);
    DSrequette1.DataSet     := requette1;
 
 
    DBCtrlGrid1                  := TDBCtrlGrid.Create(self);
    DBCtrlGrid1.Parent        := frmMenuPlat;
    DBCtrlGrid1.Top           := 80;
    DBCtrlGrid1.Left           := 50;
    DBCtrlGrid1.RowCount    := 1;
    DBCtrlGrid1.ColCount     := 5;
    DBCtrlGrid1.Width         := 800;
    DBCtrlGrid1.Height        := 60;
    DBCtrlGrid1.DataSource := DSrequette1;
 
    DBText1                 := TDBText.Create(self);
    DBText1.Parent       := DBCtrlGrid1;
    DBText1.Top           := 5;
    DBText1.Left           := 5;
    DBText1.Width         := 140;
    DBText1.Height        := 60;
    DBText1.DataSource := DSrequette1;
    DBText1.DataField    := 'Nom';
 
end;

[ShaiLeTroll]

merci encore mais malheureusement j'ai besoin des composants qui permette la rapidité d'utilisation avec les clic(comme les bouton, ou panel..etc),

J'ai l'impression que tu n'as rien compris à ce que j'ai proposé

Ma proposition à base de TForm\TFrame ne pose aucun problème d'ergonomie et même permettra peut-être un meilleur confort en activant les TabStop\TabOrder !

Comme tous les plats sont dans la même table, il est donc évident que tu peux donc faire une TFrame contenant une TDBCtrlGrid prédéfini en DesignTime, tu n'aurais que la TFrame à créer et pas le contenu


Tu n'utiliserais pas une TDBCtrlGrid pour n'afficher qu'une colonne et qu'un seul DBEdit !
Si tu n'as pas d'élément comment une TDBImage, une TDBGrid ou même une TDBLookupComboBox est largement suffisante !