Was heißt, es funktioniert keiner mehr? Gibts nen Fehler, oder passiert einfach nichts?
Du könntest es z.B. so machen(OnKeyDown):
Delphi-Quellcode:
procedure TMyForm.FormKeyDown(Sender: TObject;
var Key: Word;
Shift: TShiftState);
begin
case Key
of
vk_Escape:
begin
Form2.Visible := False;
Form1.Visible := True;
end;
vk_Add:
begin
Inc(i);
Panel1.Caption := IntToStr(i);
end;
vk_Subtract:
begin
Dec(i);
Panel1.Caption := IntToStr(i);
end;
end;
end;
KeyPreview der Form sollte auf True sein.
Besser wäre es allerdings, wenn du für das ändern des Gangs eine eigene prozedur schreibst.
Mfg