Subversion Repositories stackman

Rev

Go to most recent revision | Blame | Last modification | View Log | RSS feed

  1. unit name;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  7.   Buttons;
  8.  
  9. type
  10.   TNameDlg = class(TForm)
  11.     Label1: TLabel;
  12.     NameEdt: TEdit;
  13.     OKBtn: TButton;
  14.     CancelBtn: TButton;
  15.     Textmode: TCheckBox;
  16.     procedure CancelBtnClick(Sender: TObject);
  17.     procedure OKBtnClick(Sender: TObject);
  18.     procedure FormShow(Sender: TObject);
  19.     procedure NameEdtChange(Sender: TObject);
  20.     procedure FormKeyDown(Sender: TObject; var Key: Word;
  21.       Shift: TShiftState);
  22.   end;
  23.  
  24. var
  25.   NameDlg: TNameDlg;
  26.  
  27. implementation
  28.  
  29. {$R *.dfm}
  30.  
  31. procedure TNameDlg.CancelBtnClick(Sender: TObject);
  32. begin
  33.   ModalResult := mrAbort;
  34. end;
  35.  
  36. procedure TNameDlg.FormShow(Sender: TObject);
  37. begin
  38.   OkBtn.Enabled := false;
  39.   NameEdt.SetFocus;
  40. end;
  41.  
  42. procedure TNameDlg.NameEdtChange(Sender: TObject);
  43. begin
  44.   OKBtn.Enabled := NameEdt.Text <> '';
  45. end;
  46.  
  47. procedure TNameDlg.OKBtnClick(Sender: TObject);
  48. begin
  49.   if NameEdt.Text <> '' then
  50.   begin
  51.     ModalResult := mrOk;
  52.   end;
  53. end;
  54.  
  55. procedure TNameDlg.FormKeyDown(Sender: TObject; var Key: Word;
  56.   Shift: TShiftState);
  57. begin
  58.   if (Key = VK_ESCAPE) then
  59.   begin
  60.     close;
  61.   end;
  62. end;
  63.  
  64. end.
  65.  
  66.