Discussion :

[dadi34]

Bonjour,

1/ est ce que il faut créer pagecontrole premièrement puis tabcontrole et ses tabsheet dedans pour qu’on puisse exécuter l’application cité ci-dessous

2/ Je suis entrain de réaliser une petite application, brièvement je voulais utiliser un TabControl qui se compose de deux onglets :

DONNE CREATION SCREEN
DONNE CANCEL SCREEN

Dans le TabControl j'ai insérer un memo3, ce dernier reçois l'exécution du script en se basant sur deux autres memo (1&2), par exemple:

Code :

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

1
2
memo3.lines.Add ((memo1.Lines[i])); (1)
memo3.lines.Add ((memo2.Lines[i])); (2)

Je cherche un code qui m'affiche le résultat de création memo3.lines.Add ((memo1.Lines[i])) ; (1) dans (DONNE CREATION SCREEN ' Premier onglet de TabControl') .
Et le second onglet il m'affiche le résultat d'effacement memo3.lines.Add ((memo2.Lines[i])) ; (2) dans (DONNE CANCEL SCREEN ' Premier onglet de TabControl').


NB : Quand on est on mode création on ne peut pas se déplacer entre les deux onglets du TabControl, c’est pour cette raison, le système nous donne la possibilité d’utiliser un seul memo qui est memo3.

Il me reste seulement se problème, merci de m’aider, c'est urgent .



Salutation,

[skywaukers]

Bonjour,

je ne comprends pas trop pourquoi tu veux créer un tabcontrol dans un pagecontrol ? Tu peux créer directement tes TabSheets dans le PageControl, pour moi le tabControl est inutile.

@++
Dany

[dadi34]

Bonjour mon frère,

Je vous remercie pour votre réponse, donc j'ai utilisé deux tabsheet :
Le premier est nommé DONNE CREATION SCREEN, et le second: DONNE CANCEL SCREEN, comme cité en haut.

J'ai mis le code suivant dans memo3 qui est dans le tabsheet1 et tabsheet2
Listé ci-dessus, enfaite dans mon application, je voulais séparer la création et la suppression en utilisant un script évidemment .j'ai pensé mettre les deux tabsheet et dedans le tabsheet je mets memo3.

Autre chose si tu mets tabindex est égale à 0 quand on est en mode création avant de passer à la compilation, il vous affiche :

Code :

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

1
2
3
4
5
6
procedure TForm1.TabControl1Change(Sender: TObject);
begin
 
end;
 
end.

et quand tu change le tabindex vers 1 il vous donne le même code cité en haut malgré le index des deux tabsheet on été changé, merci de m'éclaircir ce point, parce que le code de création doit être mis dans tabsheet création qui a l’index0, et le code de suppression qui le tabindex1.


Donc au lieu d'utilisé un seul memo qui doit afficher la création et suppression de mon script en cliquant sur un bouton intitulé RUN, j'ai pensé à utilisé deux tabsheet qui à leur tour contienne un memo3 et de ce fait le tabsheet qui à l'index 0 affiche le script de création et l'autre affiche la suppression quand je clique sur le bouton RUN.

J’attends vos suggestion avec impatience, c'est urgent mes frères.

Salutation

[skywaukers]

Bonjour,

le onchange est au niveau du PageControl et pas du TTabSheet. Par control tu as la property ActivePage qui te donne la page active et que tu peux aussi modifier par code pour afficher celle que tu veux.

@++
Dany

[dadi34]

Salut dany:

Est ce que tu peux mettre un example ( code) si 'il vous palait .

et merci pour votre support

Salutation
dadi

[skywaukers]

Bonjour,

pour accéder au tabsheet actif :

Code :

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

1
2
3
4
procedure TForm2.pgc1Change(Sender: TObject);
begin
  ShowMessage( pgc1.ActivePage.Caption);
end;

ce code affiche le titre du ts actif

Pour activer un ts particulier :

Code :

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

1
2
3
4
procedure TForm2.btn1Click(Sender: TObject);
begin
  pgc1.ActivePageIndex := 1;
end;

Ce code active le deuxième tabsheet (le premier ayant l'indice 0).

@++
Dany