keyb = 'yes'Key of_down: direction (' sdown '); _left: direction (' sleft '); _up: direction (' sup '); _right: direction ('sright'); _space: direction ('space'); _TAB: SwitchClick (Sender); key of_TAB: SwitchClick (Sender);;; TMain1. SwitchMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);. Visible: = False;. Visible: = True;; TMain1. SwitchMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);. Visible: = True;. Visible: = False;; TMain1. ResetMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);. Visible: = False;. Visible: = True;; TMain1. ResetMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);. Visible: = True;. Visible: = False;; TMain1. ExitMouseDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);. Visible: = False;. Visible: = True;; TMain1. ExitMouseUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);. Visible: = True;. Visible: = False;;. br/>
