Bouton dans un composant créé

Bonjour a tous

Voila j'ai créé un composant qui hérite des propriétés du composant 'TRichEdit'.  J'aurai voulu savoir s'il était possible d'ajouter un ou des boutons dans ce composant meme, et comment.

Je sais que l'on peut declarere par exemple un TTimerdans les "private declaration" et ensuite utiliser les propriétés de ce timer.  J'essaie de faire la meme chose avec un TButton, mais la c'est qqchose qui doit se voir sur la Form en plus et je n'y arrive pas.

Merci d'avance

Wisdeco

type
TMyRichEdit = class (TRichEdit)
  private
   FMyButton: TButton;
  ...
end;

constructor TMyRichEdit.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
FMyButton := TButton.Create(self);
FMyButton.Parent := TWinControl(self);
// Initialise quelques propriétés du bouton
FMyButton.Left := 55;
FMyButton.Top := 12;
end;

end.

Je ne sais pas si ça marchera (surtout le transtypage de TRichEdit en TWinControl ...). Enfin bref essaye toujours ...

Cordialement, Bacterius !

J'ai essayé, chez moi ça marche, mais le texte disparaît et devient tout blanc, c'est un bug qu'il faudra régler.

N'oublie surtout pas Parent : il permet de savoir ou le composant doit se dessiner ...

Cordialement, Bacterius !

@Bacterius : ton code est incomplet et contient une boulette :

FMyButton.Parent:= Self As TWinControl;
FMyButton.Name:='Button';
FMyButton.SetSubComponent(True);

Ok pour le Parent, mais je ne connaissais pas Name et SetSubComponent.
Je m'en souviendrai :)

Cordialement, Bacterius !

Grand merci a vous deux, effectivement je ne connaissais pas Twincontrol :)

Je teste ca demain apres 2-3 bières :p

Wisdeco

Le bouton apparrait bien dans la zone de texte, mais par contre quand je tape du texte dans l'edit, ca reste blanc.  Une idée ? :)

Wisdeco

Ouais c'est ce que j'avais noté, le texte devient blanc, c'est bizarre. Il faudrait voir d'où ça vient :/

Cordialement, Bacterius !