Discussion :

[melles]

Disons que je voudrais créer un Second Tbuton nommé bout lorsqu'on clique sur boutton1.
J'ai essayé cela mais marche pas affiche rien du tout :

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
var
  Form1: TForm1;
  bout: Tbutton;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  bout:= tbutton.Create(self);
  bout.Left:= 400;
  bout.Top:= 150;
  bout.Visible:= true;
end;

Comme l'a deja dit la petite marionnette Pinocchio : "Il doit me manquer klk chose klk part!!! Mais quoi???"
Merci de m'eclairer

[User]

Salut,

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.Button1Click(Sender: TObject);
begin
bout:= tbutton.Create(Self);
bout.Parent := Self;
bout.Left:= 100;
bout.Top:= 150;
bout.Visible:= true;
end;

[melles]

Nikel! ça fonctionne mais à quoi sert bien cette ligne :

Code :

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

bout.Parent := Self;

??????

[User]

Cela indique ,

Le parent (Ici le Form) du contrôle (le bouton) contenant le contrôle:

C'est indispensable pour que le bouton s'affiche sur la form

Le bouton est lié au form si tu detruit la form le bouton et tous les objets de la form sont détruit avec...

si tu créer la form le bouton se crée automatiquement..

@+

[melles]

Okay... je ne comprend pas tres bien le tout mais disons que je vais l'accepter vu que ça marche.
By the way: merci User

Autre question du meme genre mais qui me declanche une exception du type ErestNotFound.
J'aimerai créer une Tform nommé myform qui contiendrait bout si on clique sur bouton1.
Voici mon 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
37
38
39
40
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
    TMyform1 = class(TForm)
    Bout: TButton;
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
 
 
var
  Form1: TForm1;
  myform1: TMyform1;
  bout: Tbutton;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
myform1:= Tmyform1.Create(nil);
myform1.bout:= tbutton.Create(self);
bout.Parent := Self;
//bout.Left:= 400;
//bout.Top:= 150;
bout.Visible:= true;
bout.Caption:= 'yep!';
myform1.Show;
end;

[User]

Cette fois ci le parent de bout est myform1 qui est du type TForm..

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
 
 
var
  Form1: TForm1;
  myform1: Tform;
  bout: Tbutton;
 
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
myform1:= Tform.Create(nil);
bout:= tbutton.Create(myform1);
bout.Parent := myform1;
bout.Left:= 100;
bout.Top:= 150;
bout.Visible:= true;
myform1.Show;
end;

@+

[evarisnea]

Cela indique ,

Le parent (Ici le Form) du contrôle (le bouton) contenant le contrôle:

C'est indispensable pour que le bouton s'affiche sur la form

Le bouton est lié au form si tu detruit la form le bouton et tous les objets de la form sont détruit avec...

+1

si tu créer la form le bouton se crée automatiquement..

là je ne suis pas sur de capter, pourrais tu préciser ce que tu entends pas là ?

[sjrd]

Attention ! Pour créer une TForm qui ne possède pas de DFM associé, il faut utiliser CreateNew et non Create !
C'est cela qui provoque l'erreur EResNotFound.

[ShaiLeTroll]

Attention ! Pour créer une TForm qui ne possède pas de DFM associé, il faut utiliser CreateNew et non Create !
C'est cela qui provoque l'erreur EResNotFound.

Tu veux dire pour "créer une classe hérité de TForm qui ...", car on peut créer une instance de TForm sans soucis avec Create ... mais pas d'une classe héritée ...

Code :

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

1
2
3
4
5
6
7
8
constructor TCustomForm.Create(AOwner: TComponent);
begin
... 
    if (ClassType <> TForm) and not (csDesigning in ComponentState) then
...
          raise EResNotFound.CreateFmt(SResNotFound, [ClassName]);
...
end;

Ensuite, j'ai vu de l'amalgame ...

Il y a le TComponent, qui introduit la notion du Owner (passé en général en paramètre au Create), c'est ce Owner qui lorsqu'il sera libéré, libéra ses Components ...

Il y a le TControl, qui introduit la notion de Parent qui défini dans quel Control, le nouveau Control sera inséré (voir les Handles et la Gestion des Controles de Windows ...), et on a accès à la liste Controls ...

C'est deux choses difféntes :
- La liste Controls contient les Objets dépendant visuellement (imbrication) de leur parent
- La liste Components contient les Objets dépendant logiquement (mémoire) de leur propriétaire (Owner)

Code :

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

1
2
3
4
5
6
7
8
procedure TForm1.boutfree(sender: TObject);
begin
  if Assigned(myform1) then
  begin
    myform1.release;
    myform1 := nil; // on oublie le pointeur, la libération va se faire dès que possible grace au release ...
  end;
end;

[melles]

ça fonctionne deja un peu mieux!
Dès que l'on crée une seconde myform1 marche plus!

[melles]

C bon!!! On arrete tout
Je ne faisais que tester sur une toute nouvelle application.

Je viens de rentrer en prod .... .... et .... comment dire..... TOUT PLANTE!!!

En fait voila comment est sencé etre mon vrai 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
procedure boutfree1;
begin
  if Assigned(myform1) then
  begin
    myform1.release;
    myform1 := nil; 
  end;
end;
 
 
procedure popup;
begin
try
count:= count + 25;
myform1:= Tform.Createnew(application);
myform1.Height:= 220;
myform1.Width:= 370;
myform1.Top:= 300 + count;
Myform1.left:= 600 + count;
BoutFree:= tbutton.Create(myform1);
BoutFree.Parent := myform1;
BoutFree.Left:= 265;
BoutFree.Top:= 145;
BoutFree.Caption:= 'Close';
boutfree1;
BoutAdd:= tbutton.Create(myform1);
BoutAdd.Parent := myform1;
BoutAdd.Left:= 170;
BoutAdd.Top:= 145;
BoutAdd.Caption:= '+1 Hour';
...

Vous voyez le genre!
La procedure PopUp doit se lancer à un moment précis.... Dès qu'on y arrive exception EAccessViolation

[ALWEBER]

Voilà la réponse à la demande initiale :

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
 
var
  Form1: TForm1;
  bout: Tbutton;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  bout:= tbutton.Create(form1);
  bout.Left:= 0;
  bout.Top:= 0;
  bout.Parent := form1 ;
  bout.Visible:= true;
end;

[sjrd]

Tu veux dire pour "créer une classe hérité de TForm qui ...", car on peut créer une instance de TForm sans soucis avec Create ... mais pas d'une classe héritée ...

Euh oui c'est ça

[ShaiLeTroll]

Euh, c'est ton BoutFree qui m'étonne, ce n'était pas un gestionnaire de OnClick, tu libère un objet en cours de manipulation c'est dommage non ?

[melles]

Euh, c'est ton BoutFree qui m'étonne, ce n'était pas un gestionnaire de OnClick, tu libère un objet en cours de manipulation c'est dommage non ?

Le boutfree sert à fermer le popup.
D'autre Tbutton suivent qui sont plus utiles.

Est ce que le code est sencé resté juste si l'on change les procedure onclick en procedure simple comme je viens de la faire?