Discussion :

[BoBoToTo]

voila mon problème : je travaille sur un composant de bases de données utilisant le BDE. dans ce composant j'ai donc une propriété aliasname qui me permet de choisir un alias de connexion (ce n'est biensur pas la section apropriée pour parler sgbd mais il s'agit juste d'un exemple).

la ou ça se complique, c'est que j'aimerais que dans l'inspecteur d'objets delphi, la liste des alias existants apparaisse de façon à choisir l'alias désiré (toujours à la façon aliasname du database).

il est tout à fait possible de récupérer la liste des alias disponibles via une fonction. mais est-ce que je peux renvoyer cette liste (TStrings) dans l'inspecteur d'objets, afin de l'utiliser à la façon d'une combobox ?

j'espère avoir été assez clair ?

(en gros, pour une propriété (string) d'un composant dans l'inspecteur d'objets, est-il possible d'avoir une liste déroulante avec des valeurs prédéfinies, que j'obtiens par le biais d'une fonction ?)

merci

[Pierre Castelain]

Oui, c'est possible. Il te faut créer un éditeur de propriété (property editor). Une recherche sur google devrait te donner de nombreux résultats.

[BoBoToTo]

oups merci !

je vais faire des recherches dans ce sens

[BoBoToTo]

merci pour ton petit coup de pouce, je m'en suis finalement sorti.

voila en gros le minimum nécessaire :


un éditeur de propriété
dans mon cas il hérite de TStringProperty car il s'agit d'un type string. il en existe pas mal d'autres (integer, char, boolean, etc... et des trucs plus poussés genre font). il est également possible d'hériter directement de TPropertyEditor, voir meme de TBasePropertyEditor pour peu qu'on implémente l'interface IProperty

Code :

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

1
2
3
4
  TAliasEditor = class(TStringProperty)
    function GetAttributes: TPropertyAttributes; override;
    procedure GetValues(Proc: TGetStrProc); override;
  end;

son implémentation (cf l'aide delphi).
a noter que AliasNames est pour moi une TStringList regroupant la liste des alias à afficher dans le menu déroulant

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
function TAliasEditor.GetAttributes: TPropertyAttributes;
begin
  result := [paValueList, paSortList, paMultiSelect];
end;
 
procedure TAliasEditor.GetValues(Proc: TGetStrProc);
var
  i: integer;
begin
  for i := 0 to AliasNames.Count - 1 do
    Proc(AliasNames[i]);
end;

et enfin l'association de l'éditeur de propriété et de la propriété, dans la procedure Register utilisée pour créer le composant.
(TbsParams est l'objet qui possède la propriété qui nous intéresse, AliasName le nom de la propriété et TAliasEditor l'éditeur de propriété)

Code :

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

1
2
3
4
5
procedure Register;
begin
  RegisterComponents(...);
  RegisterPropertyEditor(TypeInfo(string), TbsParams, 'AliasName', TAliasEditor);
end;

et voila, c'est dans la boite

encore merci

[BoBoToTo]

ha une dernière petite chose quand même, pour les utilisateurs de delphi 6 :

NOTE FOR DELPHI 6 users: - DesignIntf.dcu not found.

1. When you compile, you may get a compile error:

File not found: 'DesignIntf.dcu'

Fix: Open Tools > Environment options > Library, and add a path to ToolsAPI, like this:

$(DELPHI)\Source\ToolsAPI

2. After adding that file, if the compile stops in DesignEditors at:

uses DesignConst, Consts, RTLConsts, Contnrs, Proxies;

File not found: 'Proxies.dcu'.

Fix:

a. In DesignEditors.pas, comment Proxies out, like this:

uses DesignConst, Consts, RTLConsts, Contnrs;//, Proxies;

b. In DesignEditors, locate:

function TCustomModule.ValidateComponentClass(ComponentClass:
TComponentClass):

and comment out the code line:

while IsProxyClass(ComponentClass) do
ComponentClass := TComponentClass(ComponentClass.ClassParent);

Hope u guys find this useful!!