Discussion :

[tourlourou]

Bonjour,

Voulant adapter un code Lazarus sous Delphi, je dois dériver une classe du StringGrid, dont j'ai bien ajouté l'unité VCL.Grids à la clause Uses de mon unité.

Malgré cela, j'obtiens un message d'erreur "identificateur 'TStringGrid' non déclaré" en déclarant le type : TdySQliteGrid = class(TStringGrid) :



Dans le même temps, en vérification de syntaxe, j'ai le conseil :
[dcc32 Conseil] dySQLiteFields.pas(71): H2269 La méthode virtuelle redéfinie 'TdySQliteGrid.WndProc' a une visibilité inférieure (private) à celle de la classe de base 'TStringGrid' (protected)

Je ne vois pas ce qui cloche, quand bien même cela crèverait les yeux !

[anapurna]

salut

as tu essayé

Code :

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

1
2
3
Type 
  TMyGrid = CLass (VCL.GRIDS.TStringGrid)
  ...

histoire qu'il n'y ai pas d’élément perturbateur

[tourlourou]

Il y a bien un élément perturbateur : en le préfixant, j'ai le message loufoque suivant :

'Vcl.Grids' ne contient pas un membre nommé 'TStrinGrid'

Il y a du moisi dans tout ceci, probablement bien caché !

[tourlourou]

Il semble que la fermeture/réouverture de l'EDI ait résolu le problème... que je marque résolu, quitte à revenir dessus en cas de réapparition du souci !

[SergioMaster]

Bonjour,

tu aurais peut être du faire une dérivée de TCustomGrid plutôt que TStringGrid ...
c'est juste une question de visibilité de WndProc qui gène tu as du redéclaré cette dernière en private ou quelque chose du même genre

[tourlourou]

Bonjour Serge,

J'ai tenu compte de l'avertissement, justifié, mais remettre WndProc en protected n'avait rien changé... Bug IDE ?

[ALWEBER]

J'ai vu "Lazarus" dans ton premier post ?

[tourlourou]

Oui, je voulais adapter pour Delphi 10.2.3 CE des unités développées sous D5 puis portées sous CodeTyphon.
Il m'a fallu modifier très peu de choses, mais les StringGrid de Delphi n'implémentent pas nativement une fonction de validation de la saisie dont j'ai besoin, d'où la nécessité de les dériver :

Code :

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

1
2
// type natif sous Lazarus, dont les StringGrids permettent la validation de saisie
TValidateEntryEvent = procedure(Sender: TObject; aCol, aRow: Integer; const aOldValue: string; var aNewValue: String) of Object;

J'ai d'ailleurs cherché comment leur adjoindre cette fonctionnalité sans les dériver, mais je ne vois pas comment faire avec un class helper et me suis résigné à cette sorte de code.
Mon but initial était de n'utiliser que des types simples natifs, mais pour rendre l'interaction bidirectionnelle entre StringGrid et BDD, il me fallait un événement de fin de saisie que je n'ai pas trouvé sous Delphi... Toutes les idées sont d'ailleurs bienvenues !

NB : ce matin, l'IDE s'ouvre parfaitement, sans message d'erreur surprenant comme il était advenu hier : a priori réglé !