Discussion :

[dederfred]

Après avoir appliqué la solution que l'on m'a corrigée bien gentiment, un nouveau petit souci m’arrive.
Mon application contient des TabbedNotebooks imbriqués.
Mon but est de pouvoir renommer les différents onglets à ma guise.
Dans un premier temps il faut savoir que les TabbedNotebooks sont créés dynamiquement sauf le premier :

Ci-dessus les propriétés name des différents TabbedNotebooks et leur hiérarchie (pour aider a comprendre) :

Je voulais savoir comment déclarer un objet dynamique pour l’utiliser aussitôt (l’objet est déjà existant lors du lancement de la fonction) :

Nomobjet := ‘ partistatique’+InsToStr(numdynamique) ;

Mon code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
procedure TForm1.Renommage_piece();
var
page: TTabbedNotebook;
begin
with TNB_principal do
begin
    page := 'TNB_principal_' + IntToStr(PageIndex);
    end ;
with page do
 begin
    Pages[PageIndex] := 'Page ' + IntToStr(PageIndex);
    end;
end;

PS : Désolé, de faire un deuxième poste mais je pence que vue que ce sont deux sujets différents se sera peu être mieux pour les personnes qui recherche sur le forum. Aillant marqué d’un résolu l’autre poste je pence avoir fait au mieux : P

[sjrd]

Merci d'utiliser la fonction rechercher du forum. Ce sujet a été abordé plusieurs fois aujourd'hui !

Une recherche sur FindComponent te donnera au moins dix réponses.

[dederfred]

Désolé, mais je connaissais déjà cette fonction , si je ne me trompe pas elle sert à chercher un pointeur pas un objet, moi ce que je cherche c'est trouver le composant TabbedNotebook du nom de "TNB_principal_"+ numéro de l'index de l'onglet(l’onglet du TabbedNotebook parent du nom de TNB_principal ) dans le quel il se situe .Pardon si je me suis mal exprimé .

[Sunchaser]

Bonsoir,
A priori, FindComponent permet de trouver un composant par son 'Name'.
Ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
var
mList : TListBox;
implementation
 
{$R *.dfm}
 
procedure TForm2.Button1Click(Sender: TObject);
begin
mList := TListBox(Form2.FindComponent('ListBox1'));
ShowMessage(mList.Name);

Permet bien de pointer vers l'objet de type TListBox ayant le nom spécifié, et donc apres de travailler dessus.

Cela ne correspond pas a ce que tu cherchais ?

@ +

[dederfred]

arf je n'avais pas compris qu'il fonctionnais comme cela je vais essayer et encore merci

[dederfred]

Encore merci pour ta réponse dans le cas ou j'utilise cette fonction et quel ne trouve rien ai-je la possibilité de testé ci le composant existe je viens d'essayer avec un if then et cela ne donne rien.