Probléme avec RzPageControl

Version imprimable

14/08/2012, 11h04
medsoft

Probléme avec RzPageControl
Bonjour,

Je travaille en ce moment avec le composant RzPageControl de Raize, RzPageControl1 contient tabsheet1 ou j'ai mis la propriété visible de RzPageControl1 a false ainsi que tabsheet1 dans la procedure FormCreate

Code:

RzPageControl1.Pages[0].tabVisible := false;

Pour faire apparaitre tabsheet1 je clic sur un bouton qui contient le code :
Code:

1 2 3 4 5 6 procedure TForm1.Button1Click(Sender: TObject); begin RzPageControl1.Visible:= true; RzPageControl1.Pages[0].tabVisible := true; RzPageControl1.ActivePageIndex:= 0; end;
Maintenant pour fermer tabsheet1 j'ai mis dans l'inspecteur d'objet la propriété de RzPageControl1 "show close button on active tab" à true et dans l'événement onclose le code :
Code:

1 2 3 4 procedure TForm1.RzPageControl1Close(Sender: TObject; var AllowClose: Boolean); begin AllowClose:= true; end;
Je compile mon projet pour voir le résultat, dans la form1 uniquement le button1 qui est visible je clic sur ce dernier tabsheet1 s'affiche avec tous mes composant à l'intérieur pour la fermer je clic sur le bouton fermer dans l'onglet elle se ferme correctement mais le problème est que après avoir fermé tabsheet1 si je veux la réouvrir elle s'affiche sans les composants que j'ai mis à l'intérieur et en même temps avec un message d'erreur "Violation d'accès à l'adresse 004A3D07 dans le module projects1.exe lecture de l'adresse 00000061." je n'ai pas trouvé de solution aidé moi SVP et merci.
14/08/2012, 14h25
tourlourou

A la fermeture, que tu autorises par AllowClose:= True, le RzPageControl ne supprime-t-il pas la page (testable par if Assigned(...)) ?

Il suffirait de la cacher, si tu veux pouvoir la rouvrir.

Je ne sais pas si AllowClose mis à False cache simplement ou ne fait rien (dans ce cas, jouer dans le OnClose sur la propriété Visible, peut-être).
14/08/2012, 15h15
medsoft

Merci pour la réponse mais comment faire pour rendre RzPageControl1 et tabsheet1 invisible.
14/08/2012, 21h22
hohorga
Salut,

Dans le code que tu donnes, dans ton Button1Click tu les rends visibles avec :
Code:

1 2 RzPageControl1.Visible:= true; RzPageControl1.Pages[0].tabVisible := true;
Tu devrais pouvoir les rendre invisible comme ça :
Code:

1 2 RzPageControl1.Visible:= false; RzPageControl1.Pages[0].tabVisible := false;
Enfin j'espère :)
15/08/2012, 10h23
medsoft
Bonjour;

Merci pour la réponse ce code :
Code:

1 2 RzPageControl1.Visible:= false; RzPageControl1.Pages[0].tabVisible := false;
fonctionne mais avec une seul tabsheet dans RzPageControl1 si je dois insérer 02 ou 03 tabsheet dans RzPageControl1 avec ce même code :
Code:

1 2 3 4 RzPageControl1.Visible:= false; RzPageControl1.Pages[0].tabVisible := false; RzPageControl1.Pages[1].tabVisible := false; RzPageControl1.Pages[2].tabVisible := false;
je compile mon projet et je vais ouvrir les 03 tabsheet pour fermer la première et laissé les deux autres je clic sur bouton fermé de tabsheet 1 et tous mes tabsheet avec RzPageControl1 ce referme en même temps.

Quid d'un code du style :

Code:

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
procedure TForm1.RzPageControl1Close(Sender: TObject; var AllowClose: Boolean);
var
  TheTabToClose: TTabSheet = nil;
  CloseIndex: integer;
begin
  AllowClose:= False;
 
  if Sender is TTabSheet
  then begin
    for i:=0 to Pred(RzPageControl1.Pages.Count) do 
    if RzPageControl1.Pages[i]=TTabSheet(Sender)
    then begin
      TheTabToClose:=TTabSheet(Sender);
      CloseIndex:=i;
      Break;
    end;
  end;
 
  if Assigned(TheTabToClose)
  then begin
    RzPageControl1.Pages[CloseIndex].TabVisible:=False;
    RzPageControl1.ActivePageIndex:= -1; // ou un autre qui reste ouvert
  end;
 
end;

15/08/2012, 12h33
medsoft
Bonjour,

Merci pour la réponse mais il est impossible de compilé
Code:

1 2 var TheTabToClose: TTabSheet = nil;
E 2010 type incompatible 'TRzTabSheet' et 'TTabSheet'.

Code:

for i:=0 to Pred(RzPageControl1.Pages.count) do

TRzTabSheet ne contient pas un nombre nommé count
15/08/2012, 14h56
tourlourou

Dans ce cas, essayons (au hasard ?) de remplacer TTabSheet par TRzTabSheet et de voir si le TRzPageControl n'aurait pas une propriété PageCount ou autre qui fournirait le renseignement attendu.

Bonjour,

Je viens de mettre le code:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.RzPageControl1Close(Sender: TObject; var AllowClose: Boolean);
var
  i: Integer;
begin
  if RzPageControl1.PageCount <= 0 then Exit;
  if RzPageControl1.ActivePage = nil then exit;
  for i := 0 to RzPageControl1.ActivePage.ControlCount - 1 do
    if RzPageControl1.ActivePage.Controls[i] is TForm then
    begin
      TForm(RzPageControl1.ActivePage.Controls[i]).Close;
      Break;
    end;
  RzPageControl1.ActivePage.PageControl := nil;
  RzPageControl1.ActivePage.Free;
  RzPageControl1.SelectNextPage(true);
end;

il fonctionne sauf que qu'on je ferme une tabsheet1 puis je veux l'ouvrir de nouveau le message d'erreur suivant s'affiche "index de liste hors limites (0)" même chose pour les autres tabsheet

15/08/2012, 16h26
tourlourou

Code:

RzPageControl1.ActivePage.Free;

Combien vaut RzPageControl1.PageCount après ce Free ?
Cette ligne supprime la page active, de laquelle tu as déjà supprimé le contrôle fiche.
Quel code rouvre cette page supprimée ?
Que vaut AllowClose, que tu ne modifies plus dans ce code ?
16/08/2012, 11h33
medsoft

Bonjour,

Apparemment le problème est dans

Code:

RzPageControl1.ActivePage.Free;

car ce code supprime la tabsheet même chose pour

Code:

AllowClose:=True;