Delphi est bizarre

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

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

voila mon code

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:

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:

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

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 ^^

j'ai rien compris, mais je pense avoir trouvé...

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

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