Discussion :

[thierrybo]

Bonjour,

encore une question de noob à la c...

avec Delphi quand j'ajoute l'action 'Fichier->FileOpen' il me rajoute une action 'FileOpen1' de type TAction. Ensuite je lui rajoute la fonction 'FileOpen1Execute' sur 'OnExecute', dans lequel j'ai un truc du genre

Code :

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

 if OpenDialog.Execute then

ou OpenDialog est un TOpenDialog que j'ai défini ailleurs. En clair l'action elle même n'ouvre pas la boite de dialogue, c'est le code dans 'FileOpen1Execute'

Sous Lazarus quand j'ajoute l'action 'Fichier->FileOpen' il me rajoute un FileOpen1 de type TFileOpen. Comment j'intercepte ensuite l'exécution ? Car c'est l'action elle même qui déclenche l'ouverture de la boite de dialogue, je n'ai pas à le faire dans une fonction comme 'FileOpen1Execute', du coup je ne sais pas comment et où récupérer la sortie.

Je ne sais pas si j'ai été très clair ...

[chris37]

Bonsoir,

Cela fonctionne de la même manière avec Lazarus

Tu poses un composant open ou save dialogue sur ta forme et dans ton code (TAction.Execute ou TButtonClik) tu fais par exemple :

Code :

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

1
2
3
4
OpenDialogFile.InitialDir:=ExtractFilePath(Application.ExeName);
OpenDialogFile.Filter:='Query File'+'|*.sql';
if OpenDialogFile.Execute then
       showmessage( OpenDialogFile.FileName);

@+

[thierrybo]

Salut,

je crois que je me suis emmêlé les pinceaux, car sous delphi c'est pareil. Si l'action est TFileOpen et non TAction, on y définit déjà les propriété d'un OpenDialog, donc à priori pas besoin de déposer un composant OpenDialog. Si j'associe cette action à un bouton, j'ai bien ma boite de dialogue. Ce que je ne sais pas faire, c'est y accéder. J'ai essayé ton code dans le TFileOpen.Accept (il n'y a pas d'execute), et ça m'ouvre évidemment deux boite FileOpen successives.

[thierrybo]

Bon j'ai trouvé,

il suffisait d'ajouter la méthode 'FileOpen1Accept' dans OnAccept de l'action TFileOpen puis dans cette méthode par exemple

Code :

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

Memo1.Lines.LoadFromFile(FileOpen1.Dialog.FileName);