Prozedur in einer Prozedur starten

[Andidreas]

aloha in der dp

probiers mal so, so sollte es gehen wenn ich gerade keinen denkfehler gemacht hab

Delphi-Quellcode:

procedure TForm1.onkeypress(Sender: TObject; var Key: Char); 
begin 
  if not (key in[#8,#13,#49..#58]) then key := #0; //Eingabe auf Ziffern beschränken 
  if key in [#13] then 
    begin 
      StrButton.Click(Sender: TObject); 
    end; 
end;

edit:
mist luckie war mal wieder schneller und ich hatte nen punkt vergessen