Probleme avec TabbedNoteBook et evènement onChangeRésolu

Question

Bonsoir, 
j'ai un probleme sur un point de mon application .
Mon application repose sur un systeme de plusieurs TabbedNoteBook .
Je voulais savoir pourquoi mon code ne fonctionnai pas si possible ...
Voila Mon code :

procedure TFormPrincipal.TNB_principalChange(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin
  if TNB_principal.ActivePage = 'deder'  then
    Memo1.Lines := 'il' ;
  endif
end;


end.

Explication du code : 
Voila j' ai sur ma scene un TabbedNoteBook un des onglets se nomme deder 
Quand je déclanche l'evenement onchange je voudrai faire une certaine action 
lorsque l'application lit que l'activePage change et se nomme deder.

Cirec · Accepted Answer

Salut,

  if TNB_principal.ActivePage =  'deder'  then
    Memo1.Lines .Add(  'il' ) ;

Endif n'a rien à faire ici
 
@+
Cirec

<hr size ="2" />

dederfred · Answer

Merci pour ta réponse.
Maintenant, en application solution a mon cas je me retrouve encore avec un problème.
J'ai voulu appliquer un morceau de code trouvé sur le forum que j'ai retravaillé brièvement et coupler à ma solution.
Le but de mon code est toujours le même principe sauf que au lieu d'ajouter une ligne j'ajoute un onglet la et cette fois cela plante et je vois pas pourquoi tout me parait bon pourtant.


http://deder.free.fr/application.rar

Probleme avec TabbedNoteBook et evènement onChange

2 réponses

Votre réponse

Discussions similaires