NewFolderUnit.pas 539 B

123456789101112131415161718192021222324252627282930313233
  1. unit NewFolderUnit;
  2. interface
  3. uses
  4. Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  5. StdCtrls, ExtCtrls;
  6. type
  7. TNewFolderForm = class(TForm)
  8. Label1: TLabel;
  9. InputBox: TEdit;
  10. Bevel1: TBevel;
  11. ButtonOK: TButton;
  12. ButtonCancel: TButton;
  13. procedure InputBoxChange(Sender: TObject);
  14. private
  15. public
  16. end;
  17. var
  18. NewFolderForm: TNewFolderForm;
  19. implementation
  20. {$R *.DFM}
  21. procedure TNewFolderForm.InputBoxChange(Sender: TObject);
  22. begin
  23. ButtonOK.Enabled := InputBox.Text <> '';
  24. end;
  25. end.