Excellent tuto de Sébastien Doeraene (bravo pour ce gros travail) sur la façon d'aborder la création de composants.
Avec Delphi 7 personnel, j'ai eu dans l'implémentation de l'exemple -composants non visuels- des erreurs de compilation sur les lignes suivantes qui portent sur les options de sélection d'un directory:
.. que j'ai remplacé par celles-ci, et cela marche apparemment parfaitement. Est-ce qu SjrD pourrait confirmer?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7 FOptions : TSelectDirExtOpts; ... property Options : TSelectDirExtOpts read FOptions write FOptions default [sdNewUI]; ... FOptions := [sdNewUI]; ... Result := SelectDirectory(FCaption, FRoot, string(FDirectory), FOptions);
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4 FOptions : TSelectDirOpts; property Options : TSelectDirOpts read FOptions write FOptions default [sdAllowCreate ]; FOptions := [sdAllowCreate]; // Result := SelectDirectory(FCaption, FRoot, string(FDirectory));
Partager