Bouton dans un composant créé

Question

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

Bacterius · Answer

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 !

Bacterius · Answer

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 !

Francky23012301 · Answer

@Bacterius : ton code est incomplet et contient une boulette :

FMyButton.Parent:= Self As TWinControl;
FMyButton.Name:='Button';
FMyButton.SetSubComponent(True);

Bacterius · Answer

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

wisdeco81 · Answer

Grand merci a vous deux, effectivement je ne connaissais pas Twincontrol :)

Je teste ca demain apres 2-3 bières :p

Wisdeco

wisdeco81 · Answer

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

Bacterius · Answer

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

Bouton dans un composant créé

7 réponses

Votre réponse

Discussions similaires