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