| 0,0 → 1,46 |
|---|
| // akTimeLog v3.0 |
| // Copyright (c) 1999-2000 Anatoli Klassen |
| unit PasswordUnit; |
| |
| interface |
| |
| uses |
| Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, |
| StdCtrls; |
| |
| type |
| TPasswordForm = class(TForm) |
| OkButton: TButton; |
| CancelButton: TButton; |
| PasswordEdit: TEdit; |
| PasswordLabel: TLabel; |
| procedure FormShow(Sender: TObject); |
| private |
| public |
| function Execute : string; |
| end; |
| |
| var |
| PasswordForm: TPasswordForm; |
| |
| implementation |
| |
| {$R *.DFM} |
| |
| function TPasswordForm.Execute; |
| begin |
| PasswordEdit.Text := ''; |
| Application.BringToFront; |
| if ShowModal = mrOk then |
| Result := PasswordEdit.Text |
| else |
| Result := ''; |
| end; |
| |
| procedure TPasswordForm.FormShow(Sender: TObject); |
| begin |
| SetForegroundWindow(Handle); |
| PasswordEdit.SetFocus; |
| end; |
| |
| end. |