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. |