Discussion :

[Speed41]

Bonjour.

J'utilise un objet (TLabel) dans mon composant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure TEditNumerique.AutoInitialize;
begin
     Titre := TLabel.Create(Self);
     Titre.Parent := Self;
     with Titre do
          begin
          parent:=self.parent;
          align:=alnone;
          caption:='Titre';
          autosize:=true;
          Visible := True;
          end;
...

cet objet est paramétré par la propriété Caption de mon composant qui lui fait référence

Ce que je voudrais si c'est possible c'est masquer à l'utilisateur certaines propriétés de TLabel ici titre (comme TOP, LEFT, ...)

Est ce possible ?

par avance merci

[Dr.Who]

l'utilisateur ne voit normalement pas les propriétés des objets ... imagine le foutoirs sinon

explique mieux ton problème, contexte, details etc.

de plus attention, pourquoi definir Titre.parent avec self pour le redéfinir ensuite avec self.parent donc Titre.Parent déjà assigné à self ?!
la ligne :
Parent := Self.Parent;
est donc inutile.

[Speed41]

Bonjour

le code en double

Code :

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

parent:=self.parent;

C'est un oubli

Je veux créer un objet du type TLabeledEdit
Ce que je veux c'est masquer les propriétés de mon objet TLabel

• ALign
• Top
• Left
• Et peut être d'autres

Cf. http://www.developpez.net/forums/d81...-tlabelededit/ ma première question

L'objectif final est d'avoir un TLabel un bouton et d'autres artifices en fonction d'une propriété. Et s'y je n'y arrive pas c'est un bon entrainement

[Franck SORIANO]

Pour faire simple : Ce n'est pas possible.

Lorsqu'une propriété a été publiée, il n'est pas possible de la "dépublier" dans un composant dérivé pour qu'elle n'apparaissent pas dans l'inspecteur d'objets.

En revanche, au lieu d'utiliser un TLabel qui publie toutes les propriétés, tu devrais plutôt utiliser un TCustomLabel, qui fait exactement la même chose mais sans publier les propriétés.
Après libre à toi de publier les propriétés que tu veux rendre visibles en dérivant le TCustomLabel.

C'est le même principe pour tous les composants de la VCL.

[Montor]

impossible pour cacher les propriétés ALign,Top ,Left il sont publier par TControl accessible pas le cast ...

Je veux créer un objet du type TLabeledEdit

Ce composant existait sous delphi7...

[Montor]

Ca doit etre comme ca

Code :

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

1
2
3
4
5
6
7
8
TEditNumerique= class(TEdit)
private
 FTitre :Tlabel;
 function Get_Titre: string;
 procedure Set_Titre(const Atitre: string);
public
 property Titre :string read  Get_Titre write Set_Titre;
...