home *** CD-ROM | disk | FTP | other *** search
/ Chip: Shareware for Win 95 / Chip-Shareware-Win95.bin / ostatni / delphi / delphi1 / lmdtoolb.exe / demos / fileman / fchngdlg.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-09-08  |  786 b   |  41 lines
  1. unit Fchngdlg;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, StdCtrls, Buttons, Lmddir;
  8.  
  9. type
  10.   TChangeForm = class(TForm)
  11.     CurrentDir: TLabel;
  12.     Label2: TLabel;
  13.     Label3: TLabel;
  14.     FromFileName: TEdit;
  15.     ToFileName: TEdit;
  16.     Button2: TButton;
  17.     Button1: TButton;
  18.     BrowseBtn: TButton;
  19.     LMDDirDlg1: TLMDDirDlg;
  20.     procedure BrowseBtnClick(Sender: TObject);
  21.   private
  22.     { Private declarations }
  23.   public
  24.     { Public declarations }
  25.   end;
  26.  
  27. var
  28.   ChangeForm: TChangeForm;
  29.  
  30. implementation
  31.  
  32. {$R *.DFM}
  33.  
  34. procedure TChangeForm.BrowseBtnClick(Sender: TObject);
  35. begin
  36.   if LMDDirDlg1.Execute then 
  37.     ToFilename.Text := LMDDirDlg1.Path; {Use TLMDDir to set dest path}
  38. end;
  39.  
  40. end.
  41.