Thread: Delphi + Aika

Friend search correctly code the button that you want to be pressed to take action. Enable the form for the main function KeyPreview truth. Then try to take on this solution.


remember paste this code into the button of the desired property keydown.

Code:

procedure TForm1.Button1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  If Key = VK_F10 Then
   timer1.interval:= strtoint(edit1.text);
timer1.enabled:= true;
end;