Discussion :

[esa]

Bonjour à tous,
j'ai une demande particulière et je ne trouve pas de réponse.

Sous Delphi 7, je dois créer un compo contenant une propriété particulière. Cette dernière, lorsqu'on clique sur son petit bouton "..." dans l'inspecteur d'objets doit permettre d'ouvrir un fichier (.TXT) dans l'éditeur de Delphi, à coté des .PAS du projet en cours, uniquement si csDesigning in ComponentState donc.
Ce qu'il me manque, c'est la commande d'ouverture du fichier dans l'éditeur.

EDIT:
Question subsidiaire, comment retrouver, à ce moment là, le chemin du projet (contenant la Form qui a ce compo) ?

J'espère avoir été suffisamment clair
D'avance merci pour vos lumières.

[esa]

Bon, je vois que ça ne chatouille personne...

voici donc, afin d'être plus clair, le bout de code du compo, voir les "xxxxxxxxxxxxxx" :

Code :

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

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
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
...
 
  TChangeEdit = type string;
 
  TChangeEditProperty = class(TStringProperty)
  public
    function  GetAttributes: TPropertyAttributes; override;
    procedure Edit; override;
  end;
 
  TMonCompo = class(TComponent)
  private
    FChangeTXTEdit : TChangeEdit;
    procedure SetChangeTXTEdit(const Value: TChangeEdit);
  protected
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property ChangeTXTEdit : TChangeEdit     read FChangeTXTEdit   write SetChangeTXTEdit;
  end;
 
procedure Register;
 
implementation
 
procedure Register;
begin
  RegisterPropertyEditor(TypeInfo(TChangeEdit), nil, '', TChangeEditProperty);
  RegisterComponents('Tools', [TMonCompo]);
end;
 
{ TMonCompo }
 
constructor TMonCompo.Create(AOwner: TComponent);
begin
  inherited;
  SetChangeTXTEdit('');
end;
 
...
 
procedure TMonCompo.SetChangeTXTEdit(const Value: TChangeEdit);
begin
  FChangeTXTEdit := 'Click to open -->';
end;
 
{ TChangeEditProperty }
 
procedure TChangeEditProperty.Edit;
var
  Path: string;
begin
  Path := xxxxxxxxxxxxxxx; // Répurérer le chemin du projet du projet
  xxxxxxxxxxx(Path + 'MyFile.TXT'); // Ouvrir le fichier MyFile dans l'EDI
end;
 
function TChangeEditProperty.GetAttributes: TPropertyAttributes;
begin
  Result := [paDialog];
end;

[BuzzLeclaire]

Salut,

TU peux pas faire un

ExtractFilePath(Application.ExeName) + NomFichier

??

[sjrd]

Bah y'a rien à faire, faudra passer par les Tools API. Mais je n'ai jamais vraiment fait ça. Tu as un livre qui traite de ça dans un chapitre ?

[esa]

Salut,

TU peux pas faire un

ExtractFilePath(Application.ExeName) + NomFichier

??

Nope, ca retourne le chemin Delphi, alors qu'en exécution c'est le chemin de l'application.

@sjrd
Non, je n'ai pas de livre, je vais essayer de trouver des infos sur Tools API sur le net, mais ça n'a pas l'air gagné...

[sjrd]

Non, il y a malheureusement très peu d'infos sur les OTA (Open Tools API) sur le net.
Tu peux regarder le code source de GExperts si tu n'as pas de livre, et voir comment ça fonctionne.