| 0,0 → 1,65 |
|---|
| unit name; |
| |
| interface |
| |
| uses |
| Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls, |
| Buttons; |
| |
| type |
| TNameDlg = class(TForm) |
| Label1: TLabel; |
| NameEdt: TEdit; |
| OKBtn: TButton; |
| CancelBtn: TButton; |
| Textmode: TCheckBox; |
| procedure CancelBtnClick(Sender: TObject); |
| procedure OKBtnClick(Sender: TObject); |
| procedure FormShow(Sender: TObject); |
| procedure NameEdtChange(Sender: TObject); |
| procedure FormKeyDown(Sender: TObject; var Key: Word; |
| Shift: TShiftState); |
| end; |
| |
| var |
| NameDlg: TNameDlg; |
| |
| implementation |
| |
| {$R *.dfm} |
| |
| procedure TNameDlg.CancelBtnClick(Sender: TObject); |
| begin |
| ModalResult := mrAbort; |
| end; |
| |
| procedure TNameDlg.FormShow(Sender: TObject); |
| begin |
| OkBtn.Enabled := false; |
| NameEdt.SetFocus; |
| end; |
| |
| procedure TNameDlg.NameEdtChange(Sender: TObject); |
| begin |
| OKBtn.Enabled := NameEdt.Text <> ''; |
| end; |
| |
| procedure TNameDlg.OKBtnClick(Sender: TObject); |
| begin |
| if NameEdt.Text <> '' then |
| begin |
| ModalResult := mrOk; |
| end; |
| end; |
| |
| procedure TNameDlg.FormKeyDown(Sender: TObject; var Key: Word; |
| Shift: TShiftState); |
| begin |
| if (Key = VK_ESCAPE) then |
| begin |
| close; |
| end; |
| end; |
| |
| end. |
| |