root/trunk/BrowseDirForm.pas

Revision 4, 1.5 kB (checked in by sagrer, 1 year ago)

Исходник помещен в trunk

  • Property svnmailer:content-charset set to cp1251
Line 
1 ///////////////////////////////////////////////////////////
2 //                        EiEdit                         //
3 //      Ðåäàêòîð ÷àñòè ðåñóðñîâ Ïðîêëÿòûõ Çåìåëü         //
4 //             Copyright (C) 2002 Gipat Group            //
5 //              Ðàñïðîñòðàíÿåòñÿ íà óñëîâèÿõ             //
6 //    Gipat Group's opened EI-editor-utility license     //
7 //                      âåðñèè 1.0                       //
8 //                                                       //
9 //                  www.gipatgroup.org                   //
10 ///////////////////////////////////////////////////////////
11
12 //Ê ðàáîòå íàä äàííûì ôàéëîì ïðèëîæèëè ðóêè, íîãè.... êîðî÷å àôôòàðû:
13 // 1) Sagrer (sagrer@yandex.ru)
14
15 ////////////////////////////////////////////////////////////////////////
16
17 unit BrowseDirForm;
18
19 interface
20
21 uses
22   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
23   StdCtrls, FileCtrl, initer;
24
25 type
26   TBrowseDirF = class(TForm)
27     DirectoryListBox1: TDirectoryListBox;
28     DriveComboBox1: TDriveComboBox;
29     OkBut: TButton;
30     CancelBut: TButton;
31     procedure OkButClick(Sender: TObject);
32   private
33     { Private declarations }
34   public
35     { Public declarations }
36     BrowseDirFOtv : string;
37   end;
38
39 var
40   BrowseDirF: TBrowseDirF;
41
42 implementation
43
44 {$R *.DFM}
45
46 procedure TBrowseDirF.OkButClick(Sender: TObject);
47 begin
48   BrowseDirFOtv := DirectoryListBox1.Directory;
49   //ShowMessage(BrowseDirFOtv);
50 end;
51
52 end.
Note: See TracBrowser for help on using the browser.