Discussion :

[OutOfRange]

Bonjour
J'ai un pb avec des tpagecontrol créés dynamiquement
Je dois écrire du code dans un événement "ondrawtab" associé.
En théorie, pas de pb...
Sauf que j'ai besoin de gérer, comme le permet Delphi pour un compo ajouté en mode conception, certains paramètres à passer lors de l'appel de la procédure, notamment la constante Rect : je ne connais pas ses coordonnées!
Dois-je bidouiller à partir des propriétés tabindex, tabheight et tabwidth ?
Galère

Autre idée:
J'avais pensé me servir de l'événement ondrawtab d'un autre tpagecontrol, dont je me sers et que j'ai posé à la conception, en appelant sa procédure ondrawcell ...
Mais je me trouve confronté à la même difficulté : je dois toujours passer ces paramètres lors de l'appel de la procédure

J'ai aussi tenté ça qui ne fonctionne pas (pagepal est créé à la conception)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
          souspage:=tpagecontrol.Create(onglet);
          with souspage do
          begin
            parent:=onglet;
            style:=tsflatbuttons;
            ondrawtab:=pagepaldrawtab;
            onchange:=pagepalChange;
            width:=parent.ClientWidth;
            height:=parent.ClientHeight;
          end;

Une piste ?

merci

[dd_garion]

Bonjour,

Quand tu crées ton composant tu lui associes nil à la méthode onDrawTab....

Il ne te reste plus qu'a lui associé la bonne méthode (pagepaldrawtab) quand tu as réellement l'utilité de la méthode.

a+

[OutOfRange]

Pourrais-tu m'en dire plus ?
Je ne saisis pas bien

[dd_garion]

Voici un mini exemple qui sera plus parlant :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
procedure Form.FormActivate(Sender: TObject);
begin
   MEHolBudDay.OnChange  := nil;
end;
 
... traitements quelconques ...
 
procedure Fomr.usesMéthode(Sender : TObject);
begin
    MEHolBudDay.OnChange  := MEHolBudDayChange;
end;

Où MEHolBudDayChange est ta méthode à attaché à l'évènement.

[Yurck]

Autre idée:
J'avais pensé me servir de l'événement ondrawtab d'un autre tpagecontrol,
J'ai aussi tenté ça qui ne fonctionne pas (pagepal est créé à la conception)

Cette idée est correcte et doit fonctionner alors qu'entends tu par cela ne fonctionne pas; c'est un problème d'exécution ou de compilation.

Tu dois bien sûr dans cet évènement "pagepaldrawtab" n'utiliser que les paramètres en entrée et aucune référence directe (sauf souhaitée) à un composant de ta fiche.
Tu n'a pas à chercher à passer à cet évènement ces parmètres c'est la méthde DoDrowTab qui le fait.

a+

PS: Donnes nous un exemple de code de pagepaldrawtab

[OutOfRange]

Salut Yurck
Il n'y a pas de pb à la compilation
Le prog ne se branche jamais sur pagepaldrawtab lorsque souspage est dessiné
Finalement, j'ai opté pour une autre soluce, en posant sur ma fiche un nouveau pagecontrol, et j'implémente ondrawtab comme d'habitude
Merci qd même