Discussion :

[krokmitaine]

Salut tout le monde,
je suis en train de faire un petit notepad avec un système d'onglets. J'ai donc des TMemos crées dynamiquement. Mon problème c'est que je voudrais pouvoir détecter quand l'un des memos a été modifiés pour modifier le caption de la tabsheet le contenant (cf code ci-dessous).

Code :

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

1
2
3
4
5
 
procedure TfmMain.SetModifiedNote();
begin
  FNoteTabSheets[pcNotepad.ActivePageIndex].Caption := '* ' + FNoteTabSheets[pcNotepad.ActivePageIndex].Caption;
end;

Je n'ai aucune idée de comment faire. J'ai regardé du côté de la propriété onChange des TMemos mais rien n'y fait. Un peu d'aide serait plus que bienvenue...
Merci d'avance

[WolffN]

bonjour

apres le create de ton memo il faut affecter l'evenement Onchange du memo créer sur une procedure de ta form

[krokmitaine]

J'ai essayé mais voilà ce que j'obtiens :

Code :

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

1
2
3
4
 
  mo.OnChange := fmMain.setModifiedNote;
 
[Erreur] F_Boumbo.pas(733): Types incompatibles : 'Les listes de paramètres diffèrent'

J'ai de la fange dans les yeux ou je suis tout simplement mauvais (peut-être les deux) ???

[Cl@udius]

Salut,

L'évènement OnChange de ton Mémo attend le paramètre Sender de type TObject.

Définis donc le prototype de ta procédure dans la partie implémentation ainsi:

Code :

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

1
2
 
procedure SetModifiedNote(Sender: TObject);

@+

[krokmitaine]

C'est nikel !
Merci.
Pardon du dérangement.
Peut-être qu'un jour j'aurais pris l'habitude de ces petites choses là.
Bonne continuation tout le monde !