Discussion :

[Fleury]

Bonjour

Je débute dans la réalisation de composants.
Pouvez vous me suggérer comment construire un composant visuel qui réunit à la fois deux objets ? (exemple un label + un edit comme le composant Tlabelededit). De quelle classe doit dériver mon composant ? Comment fixe-t-on les coordonnées d'un objet par rapport à l'autre objet ?
Merci d'avance pour vous suggestions.

LF

[Chonchon]

Salut

Il existe le composant Tpanel
Tu peux mettre tous les composants que tu veux
A+ et bon développement

[siocnarf]

TPanel est très bien pour ne pas s'embêter au début. C'est un dérivé direct de TCustomPanel :

Utilisez TCustomPanel comme classe de base pour la définition d'objets incluant d'autres contrôles comme éléments. Les composants volet sont des contrôles qui peuvent contenir d'autres contrôles, pour les grouper.

En fait, tous les objets (mais ils ne sont pas tous visuels, ni destinés à recevoir des événements clavier/souris) qui dérivent de TComponent ont une propriété Components qui

Enumère tous les composants possédés par le composant.

.

Enfin, pour répondre à la deuxième partie de ta question, les coordonnées sont relatives à celles du conteneur.

[Fleury]

Merci beaucoup pour vos éclaircissements.
Je dérive donc mon composant de TPanel ou de TCustomPanel.
Mais ensuite comment fait-on pour faire apparaître un label par exemple dans le TPanel ? Pouvez-vous svp me donner un exemple de constructeur du composant ?
Encore merci pour vos réponses.

LF

[Chonchon]

Salut

Il suffit de mettre les composant dans le panel et tu les appelles normalement comme sur la form .

exemple label1.caption := 'Toto';
A+

[Chonchon]

re

de plmus voilà les sites que propose hachesse, ils sont super pour avoir des astuces et apprendre delphi
Les cours et tutoriels Delphi sur www.developpez.com
La FAQ delphi des forum de www.developpez.com

http://<br /> <br /> http://delphi...<br /> <br />

[siocnarf]

En gros voici des extraits de code pour créer un panel avec deux boutons:
Dans la partie Interface, tu mets les Uses voulus et le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
TxyBoutons = class(TCustomPanel)
   private
      BoutonReInit   : TBitBtn;
      BoutonReduireX : TBitBtn;
   public
      { Création du panel dérivé }
      constructor Create(owner : TComponent);   override;
      { Appelé par un click sur un des boutons }
      procedure   CoucouClick(Sender: TObject);
   end;

Dans la partie Implementation, tu mets:

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
 
constructor TxyBoutons.Create;
begin
inHerited Create(owner);         // Méthode héritée
setBounds(20, 40, 400, 200);   // Taille du panel
{ Creation premier bouton }
BoutonReduireX                := TBitBtn.Create(self);
BoutonReduireX.Parent      := self;
BoutonReduireX.OnClick    := CoucouClick;
BoutonReduireX.Caption    := 'BoutonReduireX';
BoutonReduireX.SetBounds(10, 10, 110, 20);
{ Création second bouton }
BoutonReInit                     := TBitBtn.Create(self);
BoutonReInit.Parent           := self;
BoutonReInit.Caption         := 'BoutonReduireX';
BoutonReInit.OnClick         := CoucouClick;
BoutonReInit.SetBounds(10, 60, 110, 20);
end;
 
procedure TxyBoutons.CoucouClick(Sender: TObject);
begin
showMessage('Coucou du bouton ' + TBitBtn(sender).Caption);
end;

Mais le conseil de Chonchon est pertinent: au départ, il vaut mieux faire des tutoriaux.

Au fait, on peut dériver des composants d'autres classes: j'en ai fait à partir de TImage.

[Fleury]

Merci à tous pour toutes ces précisions. Le code de siocnarf est exactement ce que j'attendais

A bientôt.

LF