Modif du Tabindex d'un PageControl situé dans 1 Frame

Version imprimable

Bonjour à tous,

C'est par pure commodité, afin de remédier à l'oubli de remettre la bonne ActivePage dans l'IDE quand je modifie 1 autre page :oops:

Mon problème est que le PageControl est dans 1 frame, et mon inexpérience de cette particularité me fait perdre bcp de temps... Les quelques essais qui "passent" à la compil ne me satisfont pas entièrement : c'est bien la bonne page qui s'affiche, mais un traitement préalable à l'apparition de la frame provoque 1 exception ( ... lecture de l'adresse ...) - Cette exception ne se produit pas si la bonne page est active dans l'IDE lors de la compil.

Bref, où intervenir et en quels termes ?

Merci par avance.

La déclaration issue d'un post (~2010) sur le forum que je n'ai pas retrouvé (ou su chercher)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
unit FBMframe00;
 
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;
 
type
  TFrameClass = class of TFrame;
  TFrameType = (ftTypeDB,ftTypeTB,ftTypeSQL);
 
  IMyInterface0 = interface(IInterface)       // onglet type DB
  ['{85B6F6B6-8E48-4438-BB3F-0091612344CC}']
//    procedure monAction;
  end;

La partie création

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
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
function TForm1.addTabsheet(APageControl: TPageControl;
                            FrameType: TFrameType):TTabSheet;
const
  CTABNAME   = 'TAB%d';
  CFRAMENAME = 'FRAME%d';
var
  AFrame: TFrame;
  CFrame: TComponent;
begin
  Result := TTabSheet.Create(APageControl);
  Result.PageControl := APageControl;
//  Result.Visible:=False;
//  Result.TabVisible:=False;
 
  Inc(tabCount);
  Result.Name := format(CTABNAME,[tabCount]);
  Result.Caption := TDBinfos(DBinfosList[CurrentDB]).Alias;
  Result.Hint:=CurrentUser+'@'+TDBinfos(DBinfosList[CurrentDB]).serveur;
  Result.ParentShowHint:=False;
  TDBinfos(DBinfosList[CurrentDB]).LastUse:=Now;
  case FrameType of
    ftTypeDB : begin
        AFrame := TFrameClass(findClass('TAncestorFrame0')).Create(Result);
 
    end;
  end;
  AFrame.Name := format(CFRAMENAME,[tabCount]);
  AFrame.Parent := Result;
  AFrame.Align := alClient;
  Result.ImageIndex:=AddBmpToImageList(TDBinfos(DBinfosList[CurrentDB]).visuel);
  APageControl.ActivePageIndex := Result.PageIndex;
  CFrame := FocusedFrame;
  if Assigned(CFrame)
    then
      if Supports(CFrame,IMyInterface0) then begin
         (CFrame as TAncestorFrame0).PageControl4.TabIndex:=0;                             // <<< résultat OK mais exception avant affichage
         (CFrame as TAncestorFrame0).InitConnexion(CurrentDB);
      end;
end;

Le début de la frame:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
unit FBMframeDB;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, ImgList, StdCtrls, ComCtrls, ToolWin, NxColumnClasses, NxColumns,
  NxScrollControl, NxCustomGridControl, NxCustomGrid, NxGrid, Buttons, ExtCtrls,
  SynEdit,  SynEditHighlighter, SynHighlighterSQL,FBMframe00,
  FBMframeTB,FBMframeSQL, uiblib, FBMdm,
  StrUtils, uib, UIBMetaData,TypInfo, Vcl.Menus, Vcl.Samples.Spin,
  System.ImageList, NxEdit, Data.DB, uibdataset,ShellAPI,
  NxCollection, Vcl.Imaging.pngimage, SynMemo, PDJRotoLabel, DosCommand;
 
type
  TAncestorFrame0 = class(TFrame,IMyInterface0)
    Panel2: TPanel;
    Splitter2: TSplitter;
    Panel3: TPanel;
    PageControl4: TPageControl;                                       //  << le pagecontrol concerné
    TabSheet13: TTabSh

07/09/2024, 17h58
Andnotor
Citation:

Envoyé par qi130

C'est par pure commodité, afin de remédier à l'oubli de remettre la bonne ActivePage dans l'IDE quand je modifie 1 autre page

Un code sacrément alambiqué juste pour activer un onglet, non ?

Le problème vient certainement du comportement de supports. L'avertissement précise que sur une instance son compteur de référence est incrémenté, ce qui entraîne immanquablement une décrémentation à la sortie de la procédure et de cause à effet la libération de l'objet si le compteur est à zéro. Donc pour palier à cela, il suffirait d'augmenter manuellement le compteur par CFrame._AddRef.

Je comprends bien que ton problème est qu'un frame n'a pas d'événement OnCreate pour définir l'onglet actif. On peut cependant facilement le faire par une p'tit surcharge du PageControl.
Code:

1 2 3 4 5 6 7 8 9 10 11 type TPageControl = class(Vcl.ComCtrls.TPageControl) protected procedure Loaded; override; end; procedure TPageControl.Loaded; begin inherited; ActivePageIndex := 0; end;
Le même principe est valable depuis TAncestorFrame0.Loaded.

Ne serait-ce pas plus simple ainsi ;)
09/09/2024, 11h48
qi130

1 pièce(s) jointe(s)
Bonjour, et merci pour tes éléments de réponse.

J'ai implémenté ta suggestion en mode "singe voit-singe fait", mais la compil est KO sur cette ligne:

Code:

PC:=((((((((Sender as TSpeedButton).Parent) as TPanel).Parent) as TPanel).Parent) as TFrame).Parent as TTabsheet).PageControl;

Citation:

[dcc32 Erreur] FBMframeDB.pas(655): E2010 Types incompatibles : 'FBMframeDB.TPageControl' et 'Vcl.ComCtrls.TPageControl'

Tu vas dire que l'alambiqué est très complexe, mais c'est lié à mon soft qui me permet d'ouvrir des bases Firebird:
la form principale ne contient qu'un pagecontrol dans lequel j'ajoute 1 onglet (frameDB) pour chaque base ouverte. Pour chaque base ouverte, j'ai 1 pagecontrol pour les "objets" (tables, vues, etc.), 1 autre pour des requêtes (via 1 Frame), et le pagecontrol4 que j'enrichis d'un onglet pour chaque table ou vue ouverte via autre Frame), en plus des onglets constants:
Pièce jointe 659103

Cependant,

Citation:

un frame n'a pas d'événement OnCreate pour définir l'onglet actif.

m'a fait avancé puisque j'ai ça:
Code:

1 2 3 4 5 procedure TAncestorFrame0.CreateWnd; begin inherited; DragAcceptFiles(Handle, True); end;
il m'a suffi d'y ajouter

Code:

PageControl4.ActivePageIndex:=0;
09/09/2024, 12h55
Andnotor

Citation:

Envoyé par qi130

PC:=((((((((Sender as TSpeedButton).Parent) as TPanel).Parent) as TPanel).Parent) as TFrame).Parent as TTabsheet).PageControl;

Pas très évolutif, tu devrais remplacer ça par une méthode qui remonte dans la hiérarchie.

Citation:

Envoyé par qi130

Tu vas dire que l'alambiqué est très complexe, mais c'est lié à mon soft qui me permet d'ouvrir des bases Firebird:

D'accord mais tu complexifies inutilement.
AFrame := TFrameClass(findClass('TAncestorFrame0')).Create(Result); égale AFrame := TAncestorFrame0.Create(Result);.
Une variable Info :TDBinfos faciliterais aussi la lecture/maintenance.

Citation:

Envoyé par qi130

procedure TAncestorFrame0.CreateWnd;

Tu peux mais ce n'est pas le meilleur endroit. CreateWnd peut être appelé en différentes occasions alors que Loaded n'est appelé qu'une seule fois après traitement du DFM.

La TFrame, je n'ai jamais apprécié cette chose, j'ai vu tellement de fois l'erreur du "TFrame non trouvé" par l'IDE car impossible d'ouvrir un TForm sans ouvrir le projet lorsque celui contient une TFrame ou alors lorsque l'on utilise un groupe de projet, il ne sait plus trop comment géré si le développeur a eu la mauvaise idée de nommer plusieurs TFrame avec le même nom (parfois la même dupliquée) dans plusieurs projets du groupe de projet, la panique de l'IDE !

Je préfère de loin une TForm que l'on ancre dans le TabSheet

J'ai d'ailleurs comme toi, utiliser des IInterface pour la communication entre Parent et Enfant, cela permet d'avoir un code au couplage faible, et d'avoir plusieurs types de TForm dockage / TFrame utilisant les mêmes protoypes.
Cependant, je n'utilise QUE les interfaces, et uniquement les interfaces, jamais les références (comme toi, une Factory pouvant créer différent type d'onglet), ce mélange de manipulation interface/référence n'est jamais très bon pour un objet lambda ayant pour ancêtre un TInterfacedObject.

Voici un exemple où j'ai même utilisé plusieurs Panel au sein d'une TForm servant d'équivalent de TFrame dans un Conteneur : Partage d'un formulaire entre deux applications, le Conteneur était générique et les "Frame" permettait de le spécialiser sur une activité spécifique (différent poste logistique)
Aucune manipulation directe de la "Frame", tout passe par des Interface, c'est justement ce mélange où tu es tenté d'utiliser l'intérieur de tes "Frame" qui t'amène à avoir des erreurs dans les flux.

Je n'ai pas le code sous la main mais j'avais exactement ton cas, un TPageControl dans une "Frame / Form ancrée" dont la page Active est modifiée par le Conteneur.

Par contre pour un TFrame qui hérite de TComponent, il n'y a pas de compteur de référence donc pas de libération lorsque l'on utilise des interfaces sur un TFrame.

Code:

PC:=((((((((Sender as TSpeedButton).Parent) as TPanel).Parent) as TPanel).Parent) as TFrame).Parent as TTabsheet).PageControl;

Je ne l'ai pas sous la main mais c'est un grand classique que j'ai écrit plein de fois, une version tapée directement sur le forum donc surement quelques erreurs)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 function GetPageControl(AControl: TControl): TPageControl; var P: TWinControl; begin if not Assigned(AControl) then Exit(nil); P := AControl.Parent; if P is TTabsheet then Result := TTabsheet(P).PageControl else Result := GetPageControl(P); end;
Code:

PC := GetPageControl(Sender as TControl);

Citation:

[dcc32 Erreur] FBMframeDB.pas(655): E2010 Types incompatibles : 'FBMframeDB.TPageControl' et 'Vcl.ComCtrls.TPageControl'

Avec la proposition de Andnotor, cela a reféfini TPageControl dans FBMframeDB, c'est donc tout a fait normal

Du coup, si la TFrame n'est pas ancré dans son parent en DesignTime, il n'y a vraiment aucun intérêt à faire une TFrame, autant faire une TForm, en plus on pourra de-docker l'onglet en retirant le Parent

Pour ancrer de façon simpliste une TForm dans un Tabsheet
Code:

1 2 3 4 5 6 Form := TFormTrucMachin.Create(ATabsheet); Form.BorderStyle := bsNone; Form.Align := alClient; Form.Parent := ATabsheet; Form.Visible := True;
la libération du Tabsheet provoquera la libération du Form, à cause du lien de parentalité (un control enfant ne peut survivre à son control parent) qui se produit avant le même le lien de possession (Owner)