Question sur l'utilisation des onglets

**diden138** · 15/11/2006, 13h43

j'ai un petit probléme j'explique j'ai fait un editeur de texte en delphi avec création d'onglets dynamique mais ce que je n'arrive pas à faire c'est par exemple si l'utilisateur clique sur nouvel onglet puis ouvrir fichier le fichier va se charger dans le trichedit du premier onglet comment faire pour qu'il se charge dans le trichedit de l'onglet actif j'espére que j'ai été clair...

un peu comme notepad++ si vous voyez..
merci pour vos réponse(toutes sujestion est la bienvenu)...

**Harry** · 15/11/2006, 13h54

Je suppose que tu dois créer tes TRichEdit en même temps que tu crée tes onglets ?

Si c'est le cas tu dois avoir le nom que tu donne au composant à la creation et tu peux donc réutiliser ce nom pour y insérer ton texte.

Sinon donne nous plus d'informations sur le point précis ou tu bloque

(connaitre l'onglet actif, savoir quel RichEdit est dans quel onglet etc ??)

**diden138** · 15/11/2006, 13h59

C'est ca je crée le trichedit dynamiquement au meme temp que les onglets donc je ne peux pas faire apelle à lui à partir tform1.ouvrirclick puisqu'il n'existe pas encore et c'est la ou je bloque...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
var 
  rich: TRichEdit;
  page: TTabSheet;
begin
  page := TTabSheet.Create(PageControl1);
  rich := TRichEdit.Create(page);
  with page do begin
    PageControl := PageControl1;
    Caption := 'Nouvelle page'+'('+inttostr(tabindex+1)+')';
    imageindex:=18;
  end;
  with rich do begin
    Parent := page;
    Align := alClient;
 
 
    page.Show;
end.

voici comment je crée mes onglets ...une idée peut etre

**pinson** · 15/11/2006, 14h02

Je te propose de créer une TObjectList avec comme objet les TRichEdit. Après il te reste seulement à pointer sur ton bon ObjectList et donc de remplir ce RichEdit.

Je peux te donner un exemple de code si tu ne vois pas comment faire, mais ce sera plus tard dans l'après-midi.

**diden138** · 15/11/2006, 14h05

Je crois pas que ça ce soit une bonne idée si je rempli matlisteobject avec 6trichedit et que l'utilisateur ouvre 8onglet ???
on plus ça consommera beacoup plus de ressource pour rien...à moin que je me trompe

**pinson** · 15/11/2006, 14h29

Non rien de plus car tu utilises des pointeurs sur tes objets, tu ne copies pas des objets en mémoire.

**diden138** · 15/11/2006, 15h08

Mais je sais pas comment l'utiliser pourais tu m'illustrer tous cela à travers un exemple s'il te plait ...
pour le tobjectliste j'avais oublié qu'il y-avait des pointeur donc pas de grande consomation de ressource

**pinson** · 15/11/2006, 15h23

je te fais cela dans l'heure.

**pinson** · 15/11/2006, 15h59

OK avec ça essaye d'implémenter.

N'oublie pas de créer ton objet dans le create de ta form et de le libérer dans le destroy de celle-ci.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
unit ULRichEdit;
 
interface
 
uses
  Contnrs, ComCtrls, SysUtils;
 
type
  TLRichEdit = class(TObjectList)
  private
    function GetItem(Index: Integer): TRichEdit;
  protected
 
  public
    property Items[Index: Integer]: TRichEdit read GetItem;
    procedure Add(aRichEdit: TRichEdit);
  end;
 
implementation
 
procedure TLRichEdit.Add(aRichEdit : TRichEdit);
begin
  inherited Add(aRichEdit);
end;
 
function TLRichEdit.GetItem(Index: Integer): TRichEdit;
begin
  result := inherited GetItem(Index) as TRichEdit;
end;
 
end.

si ça ne marche pas, dit le

**diden138** · 15/11/2006, 16h13

si la methode marche trés bien mais je sais pas comment l'utiliser...

comment ajouter un trichedit dans la liste des object

**pinson** · 15/11/2006, 16h39

bah :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
 
 
interface
 
uses
  ULRichEdit;
 
type
  TMaFen = class(TForm)
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
  private
    { Déclarations privées }
    pLRichEdit : TLRichEdit;
  public
    { Déclarations publiques }
  end;
 
var
  FMaFen: TMaFen;
 
implementation
 
procedure TMaFen.FormCreate(Sender: TObject);
begin
  inherited;
  pLRichEdit := TLRichEdit.Create;
end;
 
function TMaFen.Creation_RichEdit;
var
  RE : TRichEdit;
begin
  RE := TRichEdit.Create(self); //tu mets le composants parent
  //et là tu crées tes richedit comme tu fais en ce moment
 
  // et à la fin tu les ajoutes
  pLRichedit.Add(RE); //voilà il est dedans.
end;
 
procedure TMaFen.FormDestroy(Sender: TObject);
begin
  FreeAndNil(pLRichEdit);
  inherited;
end;

ce qui est le plus simple c'est que tu ajoutes les richedit à fur et à mesure de la création de tes onglets, ceci te permettra de pouvoir en récupérant le ongletindex (PageIndex pour un pagecontrol), de récupérer ton objet RichEdit en faisant :

Code :

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

1
2
 
pLRichEdit.Items[ongletindex];

et si tu veux faire super bien, dans ta class TLRichEdit, tu mets default à la fin de la ligne property items, ceci donne :

Code :

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

1
2
 
property Items[Index: Integer]: TRichEdit read GetItem;default;

et tu pourras faire directement :

Code :

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

1
2
 
pLRichEdit[ongletindex];

dit moi si tu as encore un pb.

**diden138** · 15/11/2006, 16h55

je vais essayer ça maintenant ...

je te dirais si j'ai un probléme ..encore un grand merci

**diden138** · 15/11/2006, 17h25

j'ai une erreur au niveau de la fonction getitem "déclaration forward ou external non satisfaite"...

**pinson** · 15/11/2006, 17h33

donne moi ton code, car apparemment, il y a des pb.

Déclarations forward ... -> ça signifie que tu n'as pas déclaré ta fonction GetItem dans les private de ta class.

Pour ne pas avoir de pb, tu crées une unité avec le source que je t'ai donné et ça marche.

**diden138** · 15/11/2006, 17h45

ok je vais faire ça maintenant je te tien au courant..

**diden138** · 15/11/2006, 17h58

ça marche mais quand je clique sur nouvel onglet aprés ouvrir fichier le fichier doit normalement se charger mais y'a une erreur qui s'execute indice hors de limite je comprend pas pourqoi...

**diden138** · 15/11/2006, 18h15

Aprés quelque petites enquetes au seins du code j'ai trouvé d'ou venait l'erreur

(en faite j'avais créer un onglet statique en quelques sorte avant de lancer mon programme c'est pour ca m'affichais indice hors limite )et j'ai regler le probléme j'ai testé mon programme et ça marche à merveille merci infiniment pour ce coup de main.
Enfin le probléme est résolu

**diden138** · 15/11/2006, 20h13

Encore un probléme j'ai essayer d'utiliser tsynedit au lieu de trichedit j'ai remplacé tous ce qu'il falait mais lorsque je lance le programme j'obtien une erreur d'execution
le projet editeur.exe a provoqué une classe d'exeption....

voici l'unité modifiée

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
 
unit ULRichEdit;
 
interface
 
uses
  Contnrs, ComCtrls, SysUtils,synedit;
 
type
  TLRichEdit = class(TObjectList)
  private
    function GetItem(Index: Integer): Tsynedit;
  protected
 
  public
    property Items[Index: Integer]: Tsynedit read GetItem; default;
    procedure Add(aRichEdit: tsynedit);
  end;
 
implementation
 
procedure TLRichEdit.Add(aRichEdit : Tsynedit);
begin
  inherited Add(aRichEdit);
end;
 
function TLRichEdit.GetItem(Index: Integer): Tsynedit;
begin
  result := inherited GetItem(Index) as Tsynedit;
end;
 
end.

**pinson** · 16/11/2006, 09h09

Sur ce code, tu ne dois pas avoir de pb. Fais du pas à pas, et essaye de savoir où le pb se passe.

Sinon, si tu as 2 ou plus de composants par TabSheet, ne crée pas une ObjectList par type de composants.

Soit tu crées une structure et tu fais une list de structure. Moi je ne te préconise pas cela, car tu dois passer par un TList et plus par un TObjectList.
Soit tu crées un objet du style : (je vais le code à main lever, donc dsl pour les erreurs) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
 
TMesObjTabSheet = class (TObject)
private
  pMonRichEdit : TRichEdit;
  pMonSynEdit : TSynEdit;
 
  function GetRichEdit : TRichEdit;
  function GetSynEdit : TSynEdit;
  procedure SetRichEdit(aValue : TRichEdit);
  procedure SetSynEdit(aValue : TSynEdit);
 
public
  property MonRichEdit : TRichEdit read GetRichEdit write SetRichEdit;
  property MonSynEdit : TSynEdit read GetSynEdit write SetSynEdit;
end;
 
implementation
 
function TMesObjTabSheet.GetRichEdit : TRichEdit;
begin
  result := pMonRichEdit;
end;
 
function TMesObjTabSheet.GetSynEdit : TSynEdit;
begin
  result := pMonSynEdit;
end;
 
procedure TMesObjTabSheet.SetRichEdit(aValue : TRichEdit);
begin
  if aValue <> pMonRichEdit then
    pMonRichEdit := aValue;
end;
 
procedure TMesObjTabSheet.SetSynEdit(aValue : TSynEdit);
begin
  if aValue <> pMonSynEdit then
    pMonSynEdit := aValue;
end;

Bien sur tu peux rajouter avec le même style de propriété autant de composant que tu veux.

Et maintenant, tu crées une TObjectList de TMesObjTabSheet. En gros tu remplace dans ULRichEdit, les Tsynedit par TMesObjTabSheet.

Et voilà.