Comment mettre plusieurs objets ds un composant ?

Version imprimable

24/05/2003, 12h08
Fleury

[Résolu] Comment mettre plusieurs objets ds un composant ?

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
24/05/2003, 13h35
Chonchon

Salut

Il existe le composant Tpanel
Tu peux mettre tous les composants que tu veux
A+ et bon développement
24/05/2003, 14h03
siocnarf

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

Citation:

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

Citation:

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.
24/05/2003, 14h37
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
24/05/2003, 15h26
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+
24/05/2003, 15h29
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 />

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:

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:

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.

24/05/2003, 17h34
Fleury

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

A bientôt.

LF