1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:

function xxx.Show_DlgLogin: boolean;
var  lbl: TLabel;
     inp, inp_persnr: TEdit;
     cmd: TBitBtn;
     slAnwender: TStringList;
     mrRes: TModalResult;
     qry: TOraQuery;

begin
     { Login-Dialog anzeigen }
     qry:= TORAQuery.create(nil);
     mnLoginCount:= 0;

     if Dlg <> nil then Dlg.destroy;
     Dlg:= xxx.create('Anmeldung');
     Dlg.Dialog.OnShow:= DlgLoginShow;

     lbl:= Dlg.AddLabel('Pers-Nr. :', [-1, -1, 3, 0]);
     inp_persnr:= Dlg.AddEdit('', false, [-1, 140, lbl.top, 70]);
     inp_persnr.MaxLength := 6;					

1:
2:
3:
4:
5:

procedure xxx.inp_altKeyPress(Sender: TObject;
  var Key: Char);
begin
  if NOT (Key in [#08, '0'..'9']) then Key := #0;
end;