Fenêtre qui s'ouvre au lancement de programme

**breizh44** · 28/02/2008, 12h32

Bonjour,

Je fais un programme comportant plusieurs fiches. Au lancement du programme, la dernière fiche que j'ai créée s'ouvre. Je ne comprends pas pourquoi.

Cette fenêtre n'est accessible que par un Tmenu.

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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
unit dethermine;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls, Menus, jpeg;

type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    ComboBox3: TComboBox;
    Edit2: TEdit;
    Panel1: TPanel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;
    Panel2: TPanel;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    RadioButton11: TRadioButton;
    RadioButton12: TRadioButton;
    RadioButton13: TRadioButton;
    RadioButton14: TRadioButton;
    RadioButton15: TRadioButton;
    Panel3: TPanel;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button2: TButton;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    MainMenu1: TMainMenu;
    lI1: TMenuItem;
    Apropos1: TMenuItem;
    ableauPt1001: TMenuItem;
    Couleurscblesthermocouple1: TMenuItem;
    Quitter1: TMenuItem;
    AproposdeDetHermine1: TMenuItem;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Liens1: TMenuItem;
    Image1: TImage;
    Rglages1: TMenuItem;  //Cette fenêtre ci! qui fait appel à param
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure CheckBox7Click(Sender: TObject);
    procedure CheckBox8Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure CheckBox9Click(Sender: TObject);
    procedure CheckBox10Click(Sender: TObject);
    procedure CheckBox11Click(Sender: TObject);
    procedure CheckBox12Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
    procedure RadioButton7Click(Sender: TObject);
    procedure RadioButton8Click(Sender: TObject);
    procedure RadioButton9Click(Sender: TObject);
    procedure RadioButton10Click(Sender: TObject);
    procedure RadioButton11Click(Sender: TObject);
    procedure RadioButton12Click(Sender: TObject);
    procedure RadioButton13Click(Sender: TObject);
    procedure RadioButton14Click(Sender: TObject);
    procedure RadioButton15Click(Sender: TObject);
    procedure Quitter1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure ableauPt1001Click(Sender: TObject);
    procedure Liens1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure AproposdeDetHermine1Click(Sender: TObject);
    procedure Rglages1Click(Sender: TObject);



  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
uses credits, liens, valeurspt100, recap,code,param;

**Aka Guymelef** · 28/02/2008, 13h06

Regarde les options de ton projet (Projet -> Options..). Va dans l'onglet "fiche" et vérifie quelle est la fiche principale de ton projet, c'est cette dernière qui est affiché en premier.

Tu peux aussi regarder le source de ton projet (clic gauche sur le projet dans le Gestionnaire de projet puis "Voir le source"), cela contient des informations utiles

**maloneonweb** · 28/02/2008, 16h59

hello,

n'as tu pas permis l'ouverture de cette fiche dans un évènement onclose d'une autre fiche de ton projet ??

**maloneonweb** · 28/02/2008, 17h00

scuse un évènement OnCreate

**banban54** · 28/02/2008, 17h46

bonsoir

ne serai ce pas tout simplement parce que sa propriété 'visible est à true'?
@+

**breizh44** · 01/03/2008, 17h05

Décidément, je ne m'en sors pas! J'explique mon problème.

ma fenêtre princiaple (un configurateur), comporte un menu avec diverses rubriques.

Dans ce Menu, j'ai une rubrique "Règlages" qui ouvre une fenêtre pour entrer un mot de passe. Une fois le mot de passe rentré, je clique sur in bouton Ok qui m'ouvre la fenêtre de Règlages.

Or au lancement de mon programme, la fenêtre principale s'ouvre et la fenêtre de règlage également (ce qui est plus gênant, puisque elle ne doit souvrir qu'avec le mot de passe!)

Merci pour votre aide.

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
 
program dethermine1;
 
uses
  Forms,
  dethermine in 'dethermine.pas' {Form1},
  credits in 'credits.pas' {Form2},
  valeurspt100 in 'valeurspt100.pas' {Form3},
  liens in 'liens.pas' {Form4},
  recap in 'recap.pas' {Form5},
  code in 'code.pas' {Form6},
  param in 'param.pas' {Form7};
 
{$R *.res}
 
begin
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm5, Form5);
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm7, Form7);
  Application.Run;
end.

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
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
 
unit dethermine;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls, Menus, jpeg;
 
type
  TForm1 = class(TForm)
    PageControl1: TPageControl;
    TabSheet1: TTabSheet;
    TabSheet2: TTabSheet;
    ComboBox1: TComboBox;
    ComboBox2: TComboBox;
    Edit1: TEdit;
    ComboBox3: TComboBox;
    Edit2: TEdit;
    Panel1: TPanel;
    CheckBox1: TCheckBox;
    CheckBox2: TCheckBox;
    CheckBox3: TCheckBox;
    CheckBox4: TCheckBox;
    CheckBox5: TCheckBox;
    CheckBox6: TCheckBox;
    CheckBox7: TCheckBox;
    CheckBox8: TCheckBox;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    CheckBox9: TCheckBox;
    CheckBox10: TCheckBox;
    CheckBox11: TCheckBox;
    CheckBox12: TCheckBox;
    Panel2: TPanel;
    RadioButton3: TRadioButton;
    RadioButton4: TRadioButton;
    RadioButton5: TRadioButton;
    RadioButton6: TRadioButton;
    RadioButton7: TRadioButton;
    RadioButton8: TRadioButton;
    RadioButton9: TRadioButton;
    RadioButton10: TRadioButton;
    RadioButton11: TRadioButton;
    RadioButton12: TRadioButton;
    RadioButton13: TRadioButton;
    RadioButton14: TRadioButton;
    RadioButton15: TRadioButton;
    Panel3: TPanel;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Button1: TButton;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Button2: TButton;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Label13: TLabel;
    Label14: TLabel;
    Label15: TLabel;
    Label16: TLabel;
    Label17: TLabel;
    Label18: TLabel;
    Label19: TLabel;
    MainMenu1: TMainMenu;
    lI1: TMenuItem;
    Apropos1: TMenuItem;
    ableauPt1001: TMenuItem;
    Couleurscblesthermocouple1: TMenuItem;
    Quitter1: TMenuItem;
    AproposdeDetHermine1: TMenuItem;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    Button6: TButton;
    Liens1: TMenuItem;
    Image1: TImage;
    Rglages1: TMenuItem;
    ComboBox4: TComboBox;
    ComboBox5: TComboBox;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    Panel4: TPanel;
    Panel5: TPanel;
    CheckBox13: TCheckBox;
    RadioButton16: TRadioButton;
    RadioButton17: TRadioButton;
    CheckBox14: TCheckBox;
    CheckBox15: TCheckBox;
    CheckBox16: TCheckBox;
    CheckBox17: TCheckBox;
    CheckBox18: TCheckBox;
    CheckBox19: TCheckBox;
    CheckBox20: TCheckBox;
    CheckBox21: TCheckBox;
    RadioGroup1: TRadioGroup;
    CheckBox22: TCheckBox;
    CheckBox23: TCheckBox;
    CheckBox24: TCheckBox;
    RadioGroup2: TRadioGroup;
    Label20: TLabel;
    Label21: TLabel;
    Label22: TLabel;
    Label23: TLabel;
    Label24: TLabel;
    Label25: TLabel;
    Label26: TLabel;
    Label27: TLabel;
    Label28: TLabel;
    Label29: TLabel;
    Label30: TLabel;
    Label31: TLabel;
    Label32: TLabel;
    Label33: TLabel;
    Label34: TLabel;
    Label35: TLabel;
    Label36: TLabel;
    Label37: TLabel;
    Panel6: TPanel;
    Edit7: TEdit;
    Button7: TButton;
    Button8: TButton;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    procedure ComboBox1Change(Sender: TObject);
    procedure ComboBox2Change(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Edit2Change(Sender: TObject);
    procedure ComboBox3Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure CheckBox1Click(Sender: TObject);
    procedure CheckBox2Click(Sender: TObject);
    procedure CheckBox3Click(Sender: TObject);
    procedure CheckBox4Click(Sender: TObject);
    procedure CheckBox5Click(Sender: TObject);
    procedure CheckBox6Click(Sender: TObject);
    procedure CheckBox7Click(Sender: TObject);
    procedure CheckBox8Click(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure CheckBox9Click(Sender: TObject);
    procedure CheckBox10Click(Sender: TObject);
    procedure CheckBox11Click(Sender: TObject);
    procedure CheckBox12Click(Sender: TObject);
    procedure RadioButton3Click(Sender: TObject);
    procedure RadioButton4Click(Sender: TObject);
    procedure RadioButton5Click(Sender: TObject);
    procedure RadioButton6Click(Sender: TObject);
    procedure RadioButton7Click(Sender: TObject);
    procedure RadioButton8Click(Sender: TObject);
    procedure RadioButton9Click(Sender: TObject);
    procedure RadioButton10Click(Sender: TObject);
    procedure RadioButton11Click(Sender: TObject);
    procedure RadioButton12Click(Sender: TObject);
    procedure RadioButton13Click(Sender: TObject);
    procedure RadioButton14Click(Sender: TObject);
    procedure RadioButton15Click(Sender: TObject);
    procedure Quitter1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure ableauPt1001Click(Sender: TObject);
    procedure Liens1Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure AproposdeDetHermine1Click(Sender: TObject);
    procedure Rglages1Click(Sender: TObject);
    procedure ComboBox4Change(Sender: TObject);
    procedure Edit4Change(Sender: TObject);
    procedure Edit5Change(Sender: TObject);
    procedure Edit6Change(Sender: TObject);
    procedure ComboBox5Change(Sender: TObject);
    procedure CheckBox13Click(Sender: TObject);
    procedure RadioButton16Click(Sender: TObject);
    procedure RadioButton17Click(Sender: TObject);
    procedure CheckBox14Click(Sender: TObject);
    procedure CheckBox15Click(Sender: TObject);
    procedure CheckBox16Click(Sender: TObject);
    procedure CheckBox17Click(Sender: TObject);
    procedure CheckBox18Click(Sender: TObject);
    procedure CheckBox19Click(Sender: TObject);
    procedure CheckBox20Click(Sender: TObject);
    procedure CheckBox21Click(Sender: TObject);
    procedure CheckBox22Click(Sender: TObject);
    procedure CheckBox23Click(Sender: TObject);
    procedure CheckBox24Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure RadioGroup1Click(Sender: TObject);
    procedure RadioGroup2Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
 
 
 
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
uses credits, liens, valeurspt100, recap,code;
 
 
procedure TForm1.ableauPt1001Click(Sender: TObject);
begin
valeurspt100.Form3.Show ;
end;
 
procedure TForm1.AproposdeDetHermine1Click(Sender: TObject);
begin
credits.Form2.Show    ;
end;
 
procedure TForm1.Button10Click(Sender: TObject);
begin
credits.Form2.Show;
end;
 
procedure TForm1.Button11Click(Sender: TObject);
begin
liens.Form4.Show;
end;
 
procedure TForm1.Button12Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
edit3.text := 'ECMS' + label1.Caption + label2.caption + label3.Caption + label4.Caption + label5.caption  + label6.caption + label7.caption + label8.caption + label9.caption + label10.caption + label11.caption + label12.caption + label13.caption + label14.caption + label15.caption + label16.caption + label17.caption + label18.caption + label19.caption
end;
 
procedure TForm1.Button3Click(Sender: TObject);
begin
combobox1.Text := 'Type de sonde';
combobox2.Text := 'Tête/Connecteur';
combobox3.Text := 'Raccord';
edit1.Text := '';
edit2.Text := '';
edit3.Text := '';
checkbox1.Checked := false;
checkbox2.Checked := false;
checkbox3.Checked := false;
checkbox4.Checked := false;
checkbox5.Checked := false;
checkbox6.Checked := false;
checkbox7.Checked := false;
checkbox8.Checked := false;
checkbox9.Checked := false;
checkbox10.Checked := false;
checkbox11.Checked := false;
checkbox12.Checked := false;
radiobutton1.Checked := false;
radiobutton2.Checked := false;
radiobutton3.Checked := false;
radiobutton4.Checked := false;
radiobutton5.Checked := false;
radiobutton6.Checked := false;
radiobutton7.Checked := false;
radiobutton8.Checked := false;
radiobutton9.Checked := false;
radiobutton10.Checked := false;
radiobutton11.Checked := false;
radiobutton12.Checked := false;
radiobutton13.Checked := false;
radiobutton14.Checked := false;
radiobutton15.Checked := false;
 
end;
 
procedure TForm1.Button4Click(Sender: TObject);
begin
recap.Form5.Label2.Caption := edit3.Text;
recap.Form5.Show;
end;
 
procedure TForm1.Button5Click(Sender: TObject);
begin
credits.Form2.Show  ;
end;
 
procedure TForm1.Button6Click(Sender: TObject);
begin
liens.Form4.Show;
end;
 
procedure TForm1.Button7Click(Sender: TObject);
begin
edit7.Text := 'ECMS' + label20.Caption +  label21.Caption + label22.Caption + label23.Caption + label24.Caption + label25.Caption + label26.Caption + label27.Caption + label28.Caption + label29.Caption + label30.Caption + label31.Caption + label32.Caption + '-' + label33.Caption + label34.Caption + label35.Caption + label36.Caption + label37.Caption
end;
 
procedure TForm1.Button9Click(Sender: TObject);
var i : integer;
begin
recap.Form5.Label2.Caption := edit7.Text;
{
recap.Form5.Memo1.Text := combobox4.text + chr(13) + chr(10) + 'Longueur : ' + edit5.text + ' mm' + chr(13) + chr(10) + 'Diamètre : ' + edit4.Text + ' mm' + chr(13) + chr(10) + 'Nature du câble : ' + combobox5.Text+ chr(13) + chr(10) + 'Longueur du câble : ' + edit6.Text  + ' m' + chr(13) + chr(13) + chr(10) + 'Caractérisation :' + chr(13) + chr(10);
if checkbox13.Checked = true then recap.Form5.Memo1.text := combobox4.Text + ' ' + checkbox13.Caption + chr(13) + chr(10) + 'Longueur : ' + edit5.Text + ' mm' + chr(13) + chr(10) +'Diamètre : ' + edit4.Text + ' mm' + chr(13) + chr(10) + 'Nature du câble : ' + combobox5.Text + chr(13) + chr(10) + 'Longueur du câble : ' + edit6.Text + ' m' + chr(13) + chr(10);
if (checkbox13.Checked = true) and (radiobutton16.Checked = true) then recap.Form5.Memo1.text := combobox4.Text + ' ' + checkbox13.Caption + ' ' + radiobutton16.Caption + chr(13) + chr(10) + 'Longueur : ' + edit5.Text + ' mm' + chr(13) + chr(10) +'Diamètre : ' + edit4.Text + ' mm' + chr(13) + chr(10) + 'Nature du câble : ' + combobox5.Text + chr(13) + chr(10) + 'Longueur du câble : ' + edit6.Text + ' m' + chr(13) + chr(10);
if (checkbox13.Checked = true) and (radiobutton17.Checked = true) then recap.Form5.Memo1.text := combobox4.Text + ' ' + checkbox13.Caption + ' ' + radiobutton17.Caption + chr(13) + chr(10) + 'Longueur : ' + edit5.Text + ' mm' + chr(13) + chr(10) +'Diamètre : ' + edit4.Text + ' mm' + chr(13) + chr(10) + 'Nature du câble : ' + combobox5.Text + chr(13) + chr(10) + 'Longueur du câble : ' + edit6.Text + ' m' + chr(13) + chr(10);}
 
{for I := 14 to I := 21 do
if panel4.controls[i].c  then }
 
 
 
recap.Form5.Show;
 
end;
 
procedure TForm1.CheckBox10Click(Sender: TObject);
begin
if checkbox10.Checked= true then  label16.Caption := 'N';
if checkbox10.Checked= false then  label16.Caption := '';
end;
 
procedure TForm1.CheckBox11Click(Sender: TObject);
begin
if checkbox11.Checked= true then  label17.Caption := 'V';
if checkbox11.Checked= false then  label17.Caption := '';
end;
 
procedure TForm1.CheckBox12Click(Sender: TObject);
begin
if checkbox12.Checked= true then  label18.Caption := 'G';
if checkbox12.Checked= false then  label18.Caption := '';
end;
 
procedure TForm1.CheckBox13Click(Sender: TObject);
begin
if checkbox13.Checked= true then  label23.Caption := 'D';
if checkbox13.Checked= false then  label23.Caption := '';
end;
 
procedure TForm1.CheckBox14Click(Sender: TObject);
begin
if checkbox14.Checked= true then  label25.Caption := 'H';
if checkbox14.Checked= false then  label25.Caption := '';
 
if checkbox14.Checked= true then  Checkbox15.Enabled  := false;
if checkbox14.Checked= false then  Checkbox15.Enabled  := true;
end;
 
procedure TForm1.CheckBox15Click(Sender: TObject);
begin
if checkbox15.Checked= true then  label25.Caption := 'B';
if checkbox15.Checked= false then  label25.Caption := '';
 
if checkbox15.Checked= true then  Checkbox14.Enabled  := false;
if checkbox15.Checked= false then  Checkbox14.Enabled  := true;
end;
 
procedure TForm1.CheckBox16Click(Sender: TObject);
begin
if checkbox16.Checked= true then  label26.Caption := 'F';
if checkbox16.Checked= false then  label26.Caption := '';
 
if checkbox16.Checked= true then  Checkbox17.Enabled  := false;
if checkbox16.Checked= false then  Checkbox17.Enabled  := true;
end;
 
procedure TForm1.CheckBox17Click(Sender: TObject);
begin
if checkbox17.Checked= true then  label27.Caption := 'R';
if checkbox17.Checked= false then  label27.Caption := '';
 
if checkbox17.Checked= true then  Checkbox16.Enabled  := false;
if checkbox17.Checked= true then  label26.Caption := '';
if checkbox17.Checked= false then  Checkbox16.Enabled  := true;
 
end;
 
procedure TForm1.CheckBox18Click(Sender: TObject);
begin
if checkbox18.Checked= true then  label28.Caption := 'V';
if checkbox18.Checked= false then  label28.Caption := '';
 
if checkbox18.Checked= true then  Checkbox19.Enabled  := false;
if checkbox18.Checked= true then  label27.Caption := '';
if checkbox18.Checked= false then  Checkbox19.Enabled  := true;
end;
 
procedure TForm1.CheckBox19Click(Sender: TObject);
begin
if checkbox19.Checked= true then  label29.Caption := 'P';
if checkbox19.Checked= false then  label29.Caption := '';
 
if checkbox19.Checked= true then  Checkbox18.Enabled  := false;
if checkbox19.Checked= true then  label28.Caption := '';
if checkbox19.Checked= false then  Checkbox18.Enabled  := true;
end;
 
procedure TForm1.CheckBox1Click(Sender: TObject);
begin
if checkbox1.Checked= true then  label6.Caption := 'D';
if checkbox1.Checked= false then  label6.Caption := '';
end;
 
procedure TForm1.CheckBox20Click(Sender: TObject);
begin
if checkbox20.Checked= true then  label30.Caption := 'C';
if checkbox20.Checked= false then  label30.Caption := '';
end;
 
procedure TForm1.CheckBox21Click(Sender: TObject);
begin
if checkbox21.Checked= true then  label31.Caption := 'G';
if checkbox21.Checked= false then  label31.Caption := '';
end;
 
procedure TForm1.CheckBox22Click(Sender: TObject);
begin
if checkbox22.Checked= true then  label35.Caption := 'SI';
if checkbox22.Checked= false then  label35.Caption := '';
 
if checkbox22.Checked= true then  Checkbox23.Enabled  := false;
if checkbox23.Checked= true then  label35.Caption := '';
if checkbox22.Checked= false then  Checkbox23.Enabled  := true;
end;
 
procedure TForm1.CheckBox23Click(Sender: TObject);
begin
if checkbox23.Checked= true then  label35.Caption := 'SM';
if checkbox23.Checked= false then  label35.Caption := '';
 
if checkbox23.Checked= true then  Checkbox22.Enabled  := false;
if checkbox22.Checked= true then  label35.Caption := '';
if checkbox23.Checked= false then  Checkbox22.Enabled  := true;
end;
 
procedure TForm1.CheckBox24Click(Sender: TObject);
begin
if checkbox24.Checked= true then  label36.Caption := 'RC';
if checkbox24.Checked= false then  label36.Caption := '';
end;
 
procedure TForm1.CheckBox2Click(Sender: TObject);
begin
if checkbox2.Checked= true then  label7.Caption := 'S';
if checkbox2.Checked= false then  label7.Caption := '';
end;
 
procedure TForm1.CheckBox3Click(Sender: TObject);
begin
if checkbox3.Checked= true then  label8.Caption := 'O';
if checkbox3.Checked= false then  label8.Caption := '';
end;
 
procedure TForm1.CheckBox4Click(Sender: TObject);
begin
if checkbox4.Checked= true then  label9.Caption := 'A';
if checkbox4.Checked= false then  label9.Caption := '';
end;
 
procedure TForm1.CheckBox5Click(Sender: TObject);
begin
if checkbox5.Checked= true then  label10.Caption := 'C';
if checkbox5.Checked= false then  label10.Caption := '';
end;
 
procedure TForm1.CheckBox6Click(Sender: TObject);
begin
if checkbox6.Checked= true then  label11.Caption := 'J';
if checkbox6.Checked= false then  label11.Caption := '';
end;
 
procedure TForm1.CheckBox7Click(Sender: TObject);
begin
if checkbox7.Checked= true then  label12.Caption := 'R';
if checkbox7.Checked= false then  label12.Caption := '';
end;
 
procedure TForm1.CheckBox8Click(Sender: TObject);
begin
if checkbox8.Checked= true then  label13.Caption := 'E';
if checkbox8.Checked= false then  label13.Caption := '';
end;
 
procedure TForm1.CheckBox9Click(Sender: TObject);
begin
if checkbox9.Checked= true then  label15.Caption := 'L';
if checkbox9.Checked= false then  label15.Caption := '';
end;
 
procedure TForm1.ComboBox1Change(Sender: TObject);
begin
if combobox1.text = 'Pt100' then label1.Caption := 'P';
if combobox1.text = 'Thermocouple J' then label1.Caption := 'J';
if combobox1.text = 'Thermocouple K' then label1.Caption := 'K';
if combobox1.text = 'Thermocouple S' then label1.Caption := 'S';
if combobox1.text = 'Pt1000' then label1.Caption := 'M';
end;
 
procedure TForm1.ComboBox2Change(Sender: TObject);
begin
if combobox2.Text = 'DIN B avec revêtement epoxy' then  label2.Caption := 'B';
if combobox2.Text = 'Mini DAN avec revêtement epoxy' then  label2.Caption := 'D';
if combobox2.Text = 'Inox foré dans la masse' then  label2.Caption := 'I';
if combobox2.Text = 'Inox BaTemp type D' then  label2.Caption := 'T';
if combobox2.Text = 'Inox BaTemp type F' then  label2.Caption := 'E';
if combobox2.Text = 'Noryl' then  label2.Caption := 'N';
if combobox2.Text = 'Plastique (BBK ou PA66)' then  label2.Caption := 'P';
if combobox2.Text = 'Miniature avec revêtement epoxy' then  label2.Caption := 'M';
if combobox2.Text = 'Fonte' then  label2.Caption := 'F';
if combobox2.Text = 'Cartouche interchangeable' then  label2.Caption := 'F';
if combobox2.Text = 'ADF' then  label2.Caption := 'A';
if combobox2.Text = 'DAN G avec revêtement epoxy' then  label2.Caption := 'G';
if combobox2.Text = 'Connecteur DIN46350A (Hirschmann)' then  label2.Caption := 'H';
if combobox2.Text = 'Ambiance extérieure' then  label2.Caption := 'AE';
if combobox2.Text = 'Connecteur M12' then  label2.Caption := 'C';
if combobox2.Text = 'Connecteur M12 avec convertisseur 4-20 mA' then  label2.Caption := 'U';
end;
 
procedure TForm1.ComboBox3Change(Sender: TObject);
begin
if combobox3.Text = 'Fixe sous tête' then  label4.Caption := 'F';
if combobox3.Text = 'Positionné à 50 mm' then  label4.Caption := 'P';
if combobox3.Text = 'Sans' then  label4.Caption := 'S';
if combobox3.Text = 'Taraudé 1/2G' then  label4.Caption := 'T';
end;
 
procedure TForm1.ComboBox4Change(Sender: TObject);
begin
if combobox4.text = 'Pt100' then label20.Caption := 'P';
if combobox4.text = 'Thermocouple J' then label20.Caption := 'J';
if combobox4.text = 'Thermocouple K' then label20.Caption := 'K';
if combobox4.text = 'Thermocouple S' then label20.Caption := 'S';
if combobox4.text = 'Pt1000' then label20.Caption := 'M';
 
recap.Form5.Memo1.text  := combobox4.Text
end;
 
procedure TForm1.ComboBox5Change(Sender: TObject);
begin
if combobox5.text ='Câble Teflon/Silicone' then label21.Caption := 'TS';
if combobox5.text ='Câble Teflon/Teflon avec tresse de blindage' then label21.Caption := 'TT';
if combobox5.text ='Câble Teflon/Teflon sous gaine Inox' then label21.Caption := 'TTGI';
if combobox5.text ='Câble PVC/PVC' then label21.Caption := 'PVC';
if combobox5.text ='Câble PFA/PFA sous gaine Inox' then label21.Caption := 'PPGI';
if combobox5.text ='Câble Soie de verre Tresse silicone' then label21.Caption := 'VTS';
if combobox5.text ='Câble Soie de verre/Soie de verre Tresse acier' then label21.Caption := 'VVTA';
if combobox5.text ='Câble Soie de verre/Soie de verre Tresse Inox' then label21.Caption := 'VVTI';
if combobox5.text ='Connecteur standard compensé' then label21.Caption := 'CS';
if combobox5.text ='Connecteur standard  miniature' then label21.Caption := 'CM';
if combobox5.text ='Connecteur Jaeger' then label21.Caption := 'CJ';
if combobox5.text ='Connecteur Lemo' then label21.Caption := 'CL';
end;
 
procedure TForm1.Edit1Change(Sender: TObject);
var d : real;
begin
label3.Caption := edit1.text ;
  If edit1.text='' Then Exit;//on degage, car la conversion devrait planter
  //on peut aussi mettre 0 dans l'edit avant la conversion
  d := sysutils.strtofloat(edit1.text) ;
if d < 10 then
  label3.Caption := '0' + edit1.text
 
end;
 
procedure TForm1.Edit2Change(Sender: TObject);
var b : real;
begin
  label5.Caption := edit2.text ;
  If edit2.text='' Then Exit;//on degage, car la conversion devrait planter
  //on peut aussi mettre 0 dans l'edit avant la conversion
  b := sysutils.strtofloat(edit2.text) ;
if b < 10 then
  label5.Caption := '00' + edit2.text
 
else
if (b > 10) and (b < 999) then
  label5.Caption := '0' + edit2.text
 
else
if b > 999 then
  label5.Caption := edit2.text
end;
 
procedure TForm1.Edit4Change(Sender: TObject);
var d : real;
begin
label22.Caption := edit4.text ;
  If edit4.text='' Then Exit;//on degage, car la conversion devrait planter
  //on peut aussi mettre 0 dans l'edit avant la conversion
  d := sysutils.strtofloat(edit4.text) ;
if d < 10 then
  label22.Caption := '0' + edit4.text
end;
 
procedure TForm1.Edit5Change(Sender: TObject);
var b : real;
 
begin
  label32.Caption := edit5.text ;
  If edit5.text='' Then Exit;//on degage, car la conversion devrait planter
  //on peut aussi mettre 0 dans l'edit avant la conversion
  b := sysutils.strtofloat(edit5.text) ;
if b < 10 then
  label32.Caption := '00' + edit5.text
 
else
if (b > 10) and (b < 999) then
  label32.Caption := '0' + edit5.text
 
else
if b > 999 then
  label32.Caption := edit5.text ;
 
end;
 
procedure TForm1.Edit6Change(Sender: TObject);
var e : real;
begin
  label33.Caption := edit6.text ;
  If edit6.text='' Then Exit;//on degage, car la conversion devrait planter
  //on peut aussi mettre 0 dans l'edit avant la conversion
  e := sysutils.strtofloat(edit6.text) ;
if e < 10 then
  label33.Caption := '00' + edit6.text
 
else
if (e > 10) and (e < 999) then
  label33.Caption := '0' + edit6.text
 
else
if e > 999 then
  label33.Caption := edit6.text ;
 
 
end;
 
procedure TForm1.Liens1Click(Sender: TObject);
begin
liens.Form4.Show;
end;
 
 
procedure TForm1.Quitter1Click(Sender: TObject);
begin
close;
end;
 
procedure TForm1.RadioButton10Click(Sender: TObject);
begin
IF radiobutton10.Checked= true then label19.Caption := '-DF2';
end;
 
procedure TForm1.RadioButton11Click(Sender: TObject);
begin
IF radiobutton11.Checked= true then label19.Caption := '-BCS';
end;
 
procedure TForm1.RadioButton12Click(Sender: TObject);
begin
IF radiobutton12.Checked= true then label19.Caption := '-12G';
end;
 
procedure TForm1.RadioButton13Click(Sender: TObject);
begin
IF radiobutton13.Checked= true then label19.Caption := '-12N';
end;
 
procedure TForm1.RadioButton14Click(Sender: TObject);
begin
IF radiobutton14.Checked= true then label19.Caption := '-14G';
end;
 
procedure TForm1.RadioButton15Click(Sender: TObject);
begin
IF radiobutton15.Checked= true then label19.Caption := '-14N';
end;
 
procedure TForm1.RadioButton16Click(Sender: TObject);
begin
if radiobutton16.Checked=true  then label24.Caption := 'PD';
 
end;
 
procedure TForm1.RadioButton17Click(Sender: TObject);
begin
if radiobutton17.Checked=true  then label24.Caption := 'PC';
end;
 
procedure TForm1.RadioButton1Click(Sender: TObject);
begin
IF RADIOBUTTON1.Checked= true then label14.Caption := 'H';
end;
 
procedure TForm1.RadioButton2Click(Sender: TObject);
begin
IF RADIOBUTTON2.Checked= true then label14.Caption := 'B';
end;
 
procedure TForm1.RadioButton3Click(Sender: TObject);
begin
IF radiobutton3.Checked= true then label19.Caption := '-CL3';
end;
 
procedure TForm1.RadioButton4Click(Sender: TObject);
begin
IF radiobutton4.Checked= true then label19.Caption := '-CL5';
end;
 
procedure TForm1.RadioButton5Click(Sender: TObject);
begin
IF radiobutton5.Checked= true then label19.Caption := '-SL3';
end;
 
procedure TForm1.RadioButton6Click(Sender: TObject);
begin
IF radiobutton6.Checked= true then label19.Caption := '-SL5';
end;
 
procedure TForm1.RadioButton7Click(Sender: TObject);
begin
IF radiobutton7.Checked= true then label19.Caption := '-SF3';
end;
 
procedure TForm1.RadioButton8Click(Sender: TObject);
begin
IF radiobutton8.Checked= true then label19.Caption := '-SF5';
end;
 
procedure TForm1.RadioButton9Click(Sender: TObject);
begin
IF radiobutton9.Checked= true then label19.Caption := '-DL2';
end;
 
 
 
procedure TForm1.RadioGroup1Click(Sender: TObject);
begin
if radiogroup1.buttons[0].checked = true then label34.caption := 'B10';
if radiogroup1.buttons[1].checked = true then label34.caption := 'B11';
if radiogroup1.buttons[2].checked = true then label34.caption := 'B12';
end;
 
 
 
procedure TForm1.RadioGroup2Click(Sender: TObject);
begin
if radiogroup2.buttons[0].checked = true then label37.caption := '18K';
if radiogroup2.buttons[1].checked = true then label37.caption := '18G';
if radiogroup2.buttons[2].checked = true then label37.caption := '12G';
if radiogroup2.buttons[3].checked = true then label37.caption := '12N';
if radiogroup2.buttons[4].checked = true then label37.caption := '14G';
if radiogroup2.buttons[5].checked = true then label37.caption := '14N';
end;
 
procedure TForm1.Rglages1Click(Sender: TObject);
begin
code.Form6.Show;
end;
 
end.

**souminet** · 02/03/2008, 11h52

J'ai esséyé de lire ton code, mais c'est assez difficile...

Bref, esseye de faire une recherche sur touts les show de ton code, tu l'as peut être copier Malencontreusement quelque part...

Vérifie aussi la proprièté formstyle, de chacune de tes fiches, j'ai presque eu le même problème une fois , en tout cas dans mon cas ça tournait autour du: fsNormal et du fsMDIChild...

Vérifie les événements de tes fiches...

Je ne peux pas t'en dire plus vu l'état de ton code

Bon courage

**aityahia** · 02/03/2008, 16h29

Envoyé par souminet

Vérifie aussi la proprièté formstyle, de chacune de tes fiches, j'ai presque eu le même problème une fois , en tout cas dans mon cas ça tournait autour du: fsNormal et du fsMDIChild...
Bon courage

les fiches Mdichild on la propriété visible a true par défaut et on peut pas la caché, alors si ta besoin d'une fiche mdichild tu doit l'ôter de la liste des fiche qui ce créer automatiquement et la créer dynamiquement au besoin (chose que je fais avec toutes mes fiche par soucie d'économiser des ressource) dans le menu options de projet, ou tu la remet formestyle a fsNormal et tu met sa propriété visible a false.

**maxinformatique** · 03/03/2008, 14h22

Bonjour, si on suppose que la fiche de réglage est Form6 ton projet devrait ressembler à :

Code :

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

1
2
3
4
5
6
7
8
 
Begin
  Application.CreateForm(TForm6, Form6);
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  ..........

Il sufit donc de déplacer l'instruction de création de la fiche de réglage et la placer à la fin c-à-d :

Code :

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

1
2
3
4
5
6
7
8
 
Begin
  Application.CreateForm(TForm1, Form1);
  Application.CreateForm(TForm2, Form2);
  Application.CreateForm(TForm3, Form3);
  Application.CreateForm(TForm4, Form4);
  Application.CreateForm(TForm6, Form6);
  ..........

Bon courage.

Fenêtre qui s'ouvre au lancement de programme

Delphi

Discussions similaires

Partager

Partager