Discussion :

[kilinette]

kikoo j'avais demandé ça vendredi mais apparemment mon message a disparu Alors j'ai un peu honte de redemander, mais vu que j'avais fait la modif ds mon prog mais que je n'ai rien sauvé avant de filer, j'ai tout perdu

Je me rappelle qu'il fallait mettre ctrlFile ds les uses, puis ds le programme c'était une commande du genre: xxxxxx('Choisir le répertoire', '' , S);

Merci d'avance

[cmen76]

Télécharger http://delphi.icm.edu.pl/ftp/d20free/browsedlg.zip

Puis tu patches dans BrowseDialog.pas :

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
function BrowseCallback(Wnd: HWND; uMsg: UINT; lParam, lpData: LPARAM): Integer stdcall;
var wa, rect : TRect;
    dialogPT : TPoint;
begin
 Result := 0;
 if uMsg = BFFM_INITIALIZED
  then
  begin
    with TBrowseDialog(lpData) do
    begin
     SendMessage(Wnd, BFFM_SETSTATUSTEXT, 1, Longint(PChar(Folder)));
     if Length(Folder) > 0
      then SendMessage(Wnd, BFFM_SetSelection, 1, Longint(PChar(Folder)));
    end;
    // centrer
    wa := Screen.ActiveForm.BoundsRect;
    GetWindowRect(Wnd, Rect);
    dialogPT.X := ((wa.Right-wa.Left) div 2) -
                  ((rect.Right-rect.Left) div 2);
    dialogPT.Y := ((wa.Bottom-wa.Top) div 2) -
                  ((rect.Bottom-rect.Top) div 2);
    MoveWindow(Wnd,
               wa.Left + dialogPT.X,
               wa.Top + dialogPT.Y,
               Rect.Right - Rect.Left,
               Rect.Bottom - Rect.Top,
               True);
  end;
end;

En espérant que ce n'est pas cette réponse qui vautre le forum...

[Fares BELHAOUAS]

Salem kilinette,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
uses FileCtrl;
 
const
  SELDIRHELP = 1000;
procedure TForm1.Button1Click(Sender: TObject);
var
  Dir: string;
begin
  Dir := 'C:\MYDIR';
  if SelectDirectory(Dir, [sdAllowCreate, sdPerformCreate, sdPrompt],SELDIRHELP) then
    Label1.Caption := Dir;
end;

[kilinette]

je me rappelle de ça maintenant

Tu m'avais posté ça pour compléter la réponse de qq'un qui me donnait juste une ligne à taper en rajoutant ctrlFile ds les uses, et ça marchait très bien pour ce que je voulais faire^^

[Fares BELHAOUAS]

Salem,

il y a aussi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
uses Filectrl;  
 
{....} 
 
procedure TForm1.Button1Click(Sender: TObject);  
var  
  Dir: String;  
begin  
  SelectDirectory('Select a directory', '', Dir);  
  ShowMessage(Dir);  
end;

[cmen76]

Tout à fait, Fares... Mais je re-précise que le dialog s'affiche à une position aléatoire de l'écran, et que pour gérer sa position, il faut passer par son gestionnaire d'événement (callback)...
@+

[kilinette]

Merci

[Fares BELHAOUAS]

Salem tout le monde,

C'est vrai, j'ai remarqué que tous les messages auxquels j'avais participé jeudi dernier, ne sont plus sur le Forum

C'est pas normal, y a t'il quelqu'un pour nous expliquer ??? :

[cmen76]

Vendredi le forum était inaccessible ; un message nous indiquait qu'un problème était survenu sur la base et qu'elle était en cours de restauration.
Effectivement, une bonne partie des messages de jeudi ont disparu.

[Reisubar]

Voir le sujet : http://www.developpez.net/forums/viewtopic.php?t=225914

Le forum à été restauré avec une sauvegarde, mais cependant il est resté en panne une journée : le vendredi 23, et une sauvegarde de la veille du jeudi 22 à été utilisée, de par le fait le forum reprends avec 48 h de retard, à partir du 22 juillet 4 h du mat environ, donc si vous avez posté après vos messages sont perdus, merci de les reposter.