FolderDialog.pas 397 B

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