Maximale Eingabe im Editfeld.

[mkinzler]

Delphi-Quellcode:

procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
    Zeit : Integer;
begin
    Zeit := StrToIntDef (Edit1.Text, 0);
    if Zeit > 1200 then Edit1.Text := '1200';
end;