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;


HTML generated by Time2HELP
http://www.time2help.com