FormKeyUp Event

[Edelfix]

So in etwa?

Delphi-Quellcode:

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;Shift: TShiftState);
begin
  if key=vkNumpad1 then
    FSuchString := Char(49)
  else
    FSuchString := Char(key);
end;

Dann muss ich jede Taste einzeln abarbeiten.