Discussion :

[elecpic]

Bonjour a tous,

Voila, je commence un programme, je le compile plusieurs pour tester mon code. Tous se passait bien, mais maintenant, j'ai l'impression que delphi pete les plombs : je crée mes Checkbox et des Edit par la méthode dynamique et delphi ne me place pas du tout a l'endroit ou je les veux. Pire, quand je modifie un paramettre (left), mon checkbox n'a pas changé. A la compilation, je nai aucun message d'erreur!

Si quelqu'un à une soluce ou une explication, je suis prenneur.

cordialement,

elecpic

[Paul TOTH]

sans voir ton code c'est peu probable de trouver l'explication

[elecpic]

Bonsoir,

Je met l'integralité de mon code. Par ailleurs, je confirme : meme si je supprime des lignes, c'est comme si je ne changait rien ... pour ma 1ere feuille

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
unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    Image1: TImage;
    Button1: TButton;
    Option: TButton;
    Quitter: TButton;
    procedure OptionClick(Sender: TObject);
 
  private
    { Private declarations }
  public
 
  end;
 
var
  Form1: TForm1;
 
 
implementation
 uses unit2;
{$R *.dfm}
 
 
 
procedure TForm1.OptionClick(Sender: TObject);
begin
  form2.showmodal;  // active la fihe n°2
end;
 
end.

et pour la 2eme

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
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
unit Unit2;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
 
type
  TForm2 = class(TForm)
    TabControl1: TTabControl;
    Label1: TLabel;
    date1: TEdit;
    Label2: TLabel;
    Date2: TEdit;
    Label3: TLabel;
    TabControl2: TTabControl;
    procedure FormCreate(Sender: TObject);
 
 
  private
 
  public
  CaseEsn : array [0..19] of TCheckBox;
  EditEsn : array [0..19] of TEdit;
  CaseAs  : array [0..19] of TCheckBox;
  EditAs  : array [0..19] of TEdit;
  end;
 
var
  Form2: TForm2;
 
implementation
 
{$R *.dfm}
 
procedure TForm2.FormCreate(Sender: TObject);
  var
    x, tampon : integer;
begin
    tampon := 0;
 
for x:=0 to 9  do begin
    CaseEsn[x]:= TCheckBox.create (self);
    CaseEsn[x].Parent:= self;
    CaseEsn[x].Width := 30;              // largeur du bouton
    CaseEsn[x].Top := (x*40)+220;        // haut
    CaseEsn[x].Height := 30;             // hauteur du bouton
    CaseEsn[x].Left:= 50;
 
    EditEsn[x]:= TEdit.create (self);
    EditEsn[x].Parent:= self;
    EditEsn[x].Width := 150;              // largeur du bouton
    EditEsn[x].Top := (x*40)+224;        // haut
    EditEsn[x].Height := 30;             // hauteur du bouton
    EditEsn[x].Left:= 70;
 
    CaseAs[x]:= TCheckBox.create (self);
    CaseAs[x].Parent:= self;
    CaseAs[x].Width := 30;              // largeur du bouton
    CaseAs[x].Top := (x*40)+220;        // haut
    CaseAs[x].Height := 30;             // hauteur du bouton
    CaseAs[x].Left:= 670;
 
    EditAs[x]:= TEdit.create (self);
    EditAs[x].Parent:= self;
    EditAs[x].Width := 150;              // largeur du bouton
    EditAs[x].Top := (x*40)+224;        // haut
    EditAs[x].Height := 30;             // hauteur du bouton
    EditAs[x].Left:= 690;
    end;
 
 
for x:=10 to 19  do begin
    CaseEsn[x]:= TCheckBox.create (self);
    CaseEsn[x].Parent:= self;
    CaseEsn[x].Width := 30;                   // largeur du bouton
    CaseEsn[x].Top := (tampon*40)+220;        // haut
    CaseEsn[x].Height := 30;                  // hauteur du bouton
    CaseEsn[x].Left:= 290;
 
    EditEsn[x]:= TEdit.create (self);
    EditEsn[x].Parent:= self;
    EditEsn[x].Width := 150;                  // largeur du bouton
    EditEsn[x].Top := (tampon*40)+224;        // haut
    EditEsn[x].Height := 30;                  // hauteur du bouton
    EditEsn[x].Left:= 310;
    tampon := tampon+1;
 
    end;
end;
 
 
end.

voici l'integralite.

Rien de specifique à mon sens.

cordialement,

elecpic

[Paul TOTH]

regarde dans ton .DPR si tu n'as pas un "in" qui fait pointer Unit2 sur une autre fiche...mais il serait surprenant que l'IDE t'affiche celle-là et en compile une autre.

tape n'importe quoi dans ta fiche, tu devrais au moins avoir une erreur de compilation ^^

[elecpic]

bonsoir a tous,

Merci paul pour ton aide.

Me tapant le crise de nerf (sisi), j'ai réinstallé dephi... aux grand maux les grands remedes !

Bien entendu, ca n'as pas reglé mon probleme.

J'ai donc supprimer mes TTabControl , et oh miracle ça marche.

Peux-etre que je declarait mes TabControl1 et que je mettait dessus mes autres composants ???

enfin bon merci

je deleste ce post pour en ecrire un autre... plus facile à résoudre pour vous je pense ...!

Encore un tres grand merci de ton aide.

tres cordialement,

elecpic

[ShaiLeTroll]

Ne pas confondre TabControl qui fournit des onglets sans conteneur et PageControl qui sert de Parent au controls que l'on souhaite placé dedans !