Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Nalincah,
4. Nov 2005
Habs gefunden
//------------------------------------------------------------------------------
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ) then Key := #0;
end;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by Nalincah,
4. Nov 2005
Ich lass über KeyPress nur bestimmte Zeichen zu:
//------------------------------------------------------------------------------
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if not (Key in ) then Key := #0;
end;