TestTreeKeyPress method |
Applies to
TDUnitDialog
Declaration
Procedure TestTreeKeyPress(Sender: TObject; var Key: Char);Implementation
procedure TDUnitDialog.TestTreeKeyPress(Sender: TObject; var Key: Char); begin if (Key = ' ') and (TestTree.Selected <> nil) then begin SwitchNodeState(TestTree.Selected); UpdateStatus; Key := #0 end; End; |
|