2
0

FolderDialog.pas 428 B

12345678910111213141516171819202122232425262728
  1. unit FolderDialog;
  2. interface
  3. uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  4. Buttons, ExtCtrls;
  5. type
  6. TFDialog = class(TForm)
  7. OKBtn: TButton;
  8. CancelBtn: TButton;
  9. Bevel1: TBevel;
  10. Label1: TLabel;
  11. Edit1: TEdit;
  12. private
  13. { Private declarations }
  14. public
  15. { Public declarations }
  16. end;
  17. var
  18. FDialog: TFDialog;
  19. implementation
  20. {$R *.dfm}
  21. end.