Discussion :

[Clorish]

Je derive un composant de TCustomLabel.

J'ai besoin de basculer la prop Caption en lecture seule ou de modifier les fonctions de controle (Set et Get Caption)

Mon souci : les fonctions Set et Get definie dans le composant sont private donc non surchargeables.

Comment je peux modifier le comportement en lecture et ecriture de ma prop sans acces a ces fonction ?

(J'ai 2/3 pistes mais j'aimerais avoirs vous avis pour choisir la plus "pro" ^^)

[Higgins]

Méthode directe: déplacer les méthodes de private vers protected dans stdctrls.pas elles deviennent surchargeables

J'ai "personnalisé" comme ça plusieurs fichiers et ça tourne bien

[Clorish]

Ouais ... ca semble bien .. mais j'ai voulu faire un truc du genre une fois mais ca m'a fait une erreur lorsque j'ai utilise un autre composant se basant sur celui ci.

Genre :
JE recompile l'unite stdCtrl apres modification de TLabel.
Je cree une instance d'un autre composant (EditLAbel par ex) qui contien une var de type TLabel mais donc la classe ne se situe pas dans StdCtrls donc n'a pas ete recompilé.

Le message : <Classe> a ete compilé avec une ancienne version de TLabel. Compilation impossible.

[cpdump]

Ca me semble bien barbare comme technique.

Pourquoi ne pas redéclarer les propriétes ? Regarde le tutorial ci-dessous (evenement ou propriété, c'est le même principe)
http://phidels.com/php/index.php3?page=composan/modifevn.htm

[Clorish]

Ouaip .. Cette Methode je connait ....

Code :

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

1
2
 
Property Caption : TCaption Read GetMyCaption Write SetMyCaption;

Mais je souhaite aussi effectuer le traintement de base du caption

Code :

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

1
2
3
4
5
6
 
Procedure SetMyCaption(s : TCaption);
Begin
<Mon Traintement>
SetCaption(s);   // Methode Write du caption herité
End;

Or cette methode private n'est pas accessible
donc ...

Code :

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

1
2
3
4
5
6
 
Procedure SetMyCaption(s : TCaption);
Begin
<Mon Traintement>
Inherited Caption := S;
End;

Mais ca me plait pas

Donc je cherchais mieux ^^

[cyril]

Bonjour,

Tu peux déclarer dans ton composant la classe TCustomLabel.

Code :

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

TMonCustomLabel : TCustomLabel

Là, les propriétés protected seront accessibles.

A+
Cyril

[anapurna]

salut

si c'est pour le caption de ton Tlabel
il faut remonte bien plus haut, au tcontrol
et que voie ton, la methode SetTextBuf qui est public

Code :

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

1
2
3
4
5
procedure TControl.SetTextBuf(Buffer: PChar);
begin
  Perform(WM_SETTEXT, 0, Longint(Buffer));
  Perform(CM_TEXTCHANGED, 0, 0);
end;

en fait deux solution peuvent donc etre envisage a ton probleme
soit tu intercepte le message WM_SETTEXT et tu fait ce qui te plait
soit tu redefinie settexbuf de l'ancetre

@+ Phil

[sjrd]

Il me semble quand même que ceci devrait fonctionner :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
procedure TMyLabel.SetCaption(New : string);
begin
  inherited Caption := New;
  // Ce que tu veux faire de plus
end;
 
function TMyLabel.GetCaption : string;
begin
  Result := inherited Caption;
  // Ce que tu veux faire de plus
end;

[Clorish]

Là, les propriétés protected seront accessibles.

Tu derive ton compo de TCustomLabel tu accede aussi au protected .... ce n'ets pas a ce niveau que se pose le probleme .. mais au niveau des Privates.

[Clorish]

et que voit ton la methode SetTextBuf qui elle est public

J'avais pas remarqué aue SetTextBuff agit sur la var Private fCaption

procedure TMyLabel.SetCaption(New : string);
begin
inherited Caption := New;
// Ce que tu veux faire de plus
end;

function TMyLabel.GetCaption : string;
begin
Result := inherited Caption;
// Ce que tu veux faire de plus
end;

C'est ce que je fait .. mais cette methode me plaisait pas.

MErci a tous .. vais me debrouiller avec la combinaison de plusieurs de ces methdoes.