Discussion :

[zounar_j5]

Bonjour à tous,
Pour faire simple, j'ai un label, 1 pagecontrôle avec 3 tabsheet.
Au démarrage, le label.caption='Test classeur';
TabSheet1 = Entrée
TabSheet2 = Sortie
TabSheet3 = Stock
Maintenant, quand je change de tabsheet, tabsheet2 par exemple, je voudrais que le label1.caption prenne la valeur'Sortie' et ainsi de suite sur chaque tabsheet. J'ai cherché, j'ai rien trouvé sur ce sujet. Si quelqu'un a une idée, je suis preneur. Merci pour votre aide.

Je suis sous Delphi 2010 Architect

[Andnotor]

Evénement OnChange et en admettant que les textes soient les titres des onglets, juste :

Code :

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

1
2
3
4
procedure TForm1.PageControl1Change(Sender: TObject);
begin
  Label1.Caption := PageControl1.ActivePage.Caption;
end;

[zounar_j5]

Super. Merci, ça marche bien, c'est exactement ce que je voulais.
Bonne continuation à tous.