Discussion :

[QAYS]

Bonjour,

j'ai un problème avec la création d'un composant visuel, je m'explique lorsque je créer le composant en dynamique depuis mon programme , pas de problème, mais maintenant je souhaiterais créer un composant qui serait dispo depuis la palette de composant.

En test j'ai créé un composant simple : un bouton plus deux edit, le problème est que lorsque je fait glisser le dit composant sur ma forme eh bien tout est vide, je ne vois pas mes composants, auriez vous un exemple ou une explication.

Au temps je réussi à le créer à la voler (depuis le code) mais là je sèche

pour info le code est super simple s'est peut peut être pour cela que cela ne marche pas :

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
 
 
unit Unit3;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TSaisieTc= Class(TWinControl)
    private
      Button1: TButton;
      Edit1: TEdit;
      Edit2: TEdit;
    Public
      Constructor CreateSaisieTc(Aowner : tcomponent);
      Destructor destroy ;override;
 
    published
 
  end;
 
implementation
 
Constructor TSaisieTc.CreateSaisieTc(Aowner : tcomponent);
begin
    Inherited Create(Aowner);
    Button1:= TButton.Create(Aowner);
    Edit1:= TEdit.Create(Aowner);
    Edit2:= TEdit.Create(Aowner);
 
    With Button1 do
    begin
        Left := 16;
        Top := 56;
        Width := 75;
        Height := 25;
        Caption := 'Button1';
     end;
    with Edit1 do
    begin
        Left := 16;
        Top := 16;
        Width := 75;
        Height := 21;
        TabOrder := 1;
        Text := 'Edit1';
    end;
 
    with Edit2 do
    begin
        Left := 112;
        Top := 16;
        Width := 73;
        Height := 21;
        TabOrder := 2;
        Text := 'Edit2';
    end;
end;
 
Destructor TSaisieTc.destroy ;
begin
  inherited destroy;
end;
 
end.

Merci de votre aide.
Cordialement

[Kaféine]

La convention veut que l'on appel le constructor Create

dérive plutôt de TCustomControl au lieu de TWinControl.

pour que ton composant accepte des controles.

Code :

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

1
2
 
ControlStyle := ControlStyle + [csAcceptControl];

et initialise les valeurs des propriétés Width et Height

[Nono40]

Autre chose : les composants embarqués doivent plutôt être créés avec Self comme propriétaires et être détruit dans le destructeur.

[Issam]

Déja il faut un parent pour tes composants

Code :

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

1
2
3
4
5
6
7
8
9
 With Button1 do
    begin
        Left := 16;
        Top := 56;
        Width := 75;
        Height := 25;
        Caption := 'Button1';
        parent := self;
     end;

ensuite

La convention veut que l'on appel le constructor Create

dérive plutôt de TCustomControl au lieu de TWinControl.

pour que ton composant accepte des controles.

Code :

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

1
2
 
ControlStyle := ControlStyle + [csAcceptControl];

et initialise les valeurs des propriétés Width et Height