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éclarations privées }
procedure SetCaption(Value: string);
function GetCaption: string;
published
{ Déclarations publié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