Compos Bouton + CaptionRésolu

Question

Bjr a tous





Voila je suis toujour avec mon composant bouton maintenant deriver de TGraphicControl


et qui marche mieux grace a "Cirec" que je remerci encore et a
"Mauricio" pour son SkinBouton sur lequel je me suis baser pour
la  transparence que je remerci aussi





Mon probleme c'est que je voudrais que quand je change mon Caption et la fonte cela le change aussi directement sur mon bouton 





J'ai cercher mais je n'ai pas trouver





alor si quelqu'un a une idee





Merci pour ce site qui est genial




Louis

Louis

adec0127 · Accepted Answer

tu mais la propriete dans la Procedure paint

louiwahl · Answer

Bjr Merci pour la reponse



Comment je met cette procedure tu n'aurais pas un exemple?

Louis

Cirec · Answer

Salut,
Essaye comme &#231;a 
 
  type
  TLBouton = class(TGraphicControl)
private
    { D&#233;clarations priv&#233;es }
    Procedure CMFontChanged(Var Message: TMessage); Message CM_FONTCHANGED;
 protected
    { D&#233;clarations prot&#233;g&#233;es }
.......

Implementation
....

{ TLBouton }



Procedure TLBouton.CMFontChanged(Var Message: TMessage);
Begin
  Inherited;
End;

@+
Cirec

louiwahl · Answer

Merci Cirec 

ca fonctionne tres bien pour la fonte

Mais c'est surtout le changement du caption que je voudrais

J'ais essayer ca mais ca marche pas??





 type

  TLBouton =   class (TGraphicControl)

private

    { D&#233;clarations priv&#233;es }

    procedure SetCaption(Value: string);

    function GetCaption: string;

published

    { D&#233;clarations publi&#233;es }

  property Caption: string read GetCaption write SetCaption;



implementation



procedure TLMBtn.SetCaption(Value: string);

begin

  inherited Caption : = Value;

end;



function TLMBtn.GetCaption: string;

begin

  Result := inherited Caption;

end;



Si tu as une autre idee  

A+
Louis

louiwahl · Answer

J'AI Trouver    OUF!!



Merci a tous



J'ai mis



 procedure CMTextChanged(var Message: TMessage); message CM_TEXTCHANGED;



et  



procedure TLMBtn.CMTextChanged(var Message: TMessage);

begin

  Invalidate;

end;



Si ca peut servire a d'autres



Merci encore a tous 

A+


Louis

Compos Bouton + Caption

5 réponses

Votre réponse

Discussions similaires