Discussion :

[alberth]

Bonjour tout le monde les gens,

J'aimerais savoir comment faire pour créer une fenêtre avec un bouton et un label, sans utiliser l'outil RAD.
Un peu comme en C++ avec les librairies SFML,wxWidget, Fltk, etc...
Je rassure le but étant purement pédagogique..J'ai essayé ce code:

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
program FenSimple;
uses
  Windows, Messages, SysUtils, Variants, Classes,StdCtrls, Graphics, Controls, Forms,
  Dialogs;
 
//{$R *.res} *)
 
type
  TForm1 = class(TForm)
  end;
var
  Form1: TForm;
 
//implementation
 
//{$R *.dfm}
 
begin
Form1:=TForm.create(Application);
   with Form1 do
     Begin
     BorderStyle:= bsNone;
     Left:= 388;
     Top:= 200;
     width:=352;
     height:=258;
     caption:='Ma Fenetre';
     //Execute;
     //Free;
     //ShowMessage('Hello There!');
     end;
 
  //Application.Initialize;
  Application.CreateForm(TForm, Form1);//, Form1
  Application.Run;
end.

Pas de problème à la compilation et le programme se lance. Sauf que les valeurs des propriétés n'étant absolument pas pris en considération, c'est une fenêtre ,par défault, qui s'affiche.

Une idée? un site? Merci d'avance.

[ShaiLeTroll]

Tu vas créer DEUX fenêtres !

Code :

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

Form1:=TForm.create(Application);

et là

Code :

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

Application.CreateForm(TForm, Form1);

et tu as créer TForm1 que tu n'utilises pas !

[GoustiFruit]

Il y a une propriété "Position" qui est par défaut sur poDesigned... or comme tu ne passes pas par l'EDI pour concevoir ta fenêtre, il faut peut-être renseigner cette propriété avec la bonne valeur pour afficher selon tes coordonnées !?

[ShaiLeTroll]

@GoustiFruit, non, pour faire souvent des fenêtres construite à la main, cette propriété n'influe pas !

poDesigned est la valeur par défaut par ce qu'une instance est initialisé à zéro à sa création ...

Son Problème, c'est qu'il créé une Form invisible qu'il modifie (manque Show) et créé un seconde Form non modifié qu'il est s'affiche !

[alberth]

Merci de vos explications les amis mais le code précédent c'était du brut de décoffrage à taton, etc....D'onc bien sure beaucoup de n'importe quoi. Comme je ne suis pas un maitre Delphi et que je n'ai pas de référence, j'ai donc jeté sur le papier....!! sur la toile...!non dans un fichier serais plus approprié, une ossature tel que j'ai pu le comprendre avec TP7.
J'avance tout doucement et ce code fonctionne :

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
program FenSimple;
 
uses
  Windows, Messages, SysUtils, Variants, Classes,StdCtrls, Graphics, Controls, Forms,
  Dialogs;
  (*Unit1 in 'Unit1.pas' {Form1};
 
//{$R *.res} *)
 
//uses Forms, Dialogs, SysUtils;
 (* type
  TForm1 = class(TForm)
  //HelloButton : TButton;
  //procedure MyEventHandler(Sender: TObject);
   end; *)
 
 
 
var
  Form1: TForm;
 
//implementation
 
//{$R *.dfm}
 
 
(*procedure TForm1.MyEventHandler(Sender: TObject);
begin
   ShowMessage('Hello There!');
end; *)
 
procedure creFen;
begin
//Form1:=TForm.create(Application); placé ici,c'est la fiche par défault qui est créée
   with Form1 do
     Begin
     //BorderStyle:= bsNone;
     color:=clYellow;
     Left:= 388;
     Top:= 200;
     width:=352;
     height:=258;
     caption:='Ma Fenetre';
     //Execute;
     //Free;
     //ShowMessage('Hello There!');
     //Form1:=TForm.create(Application);Placé ici,çà ne change rien la fiche se crée
     end;
end;
 
(*procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
  Y: Integer);
begin
 
end;*)
 
begin
  //Application.Initialize;
  Application.CreateForm(TForm, Form1);//, Form1
  creFen;
  Application.Run;
 
end.

Je finirais bien par lui mettre un bouton sur la tronche un de ces quatres.....
Avec un p'tit coup de main...... car je n'arrive pas à comprendre pourquoi, alors que le compilateur ne m'a pas jeté, le programme bug lorsque je dérive la class TFORM avec TForm1.

[Paul TOTH]

utiliser la VCL à la main ne présente pas bcp d'intéret.

pour ce qui est des autres bibliothèque il faut se tourner vers leur API et éventuellement leur portage Pascal...comme pour GTK par exemple