DoKeyUp method

bool DoKeyUp(
  1. TWMKey Message
)

Implementation

bool DoKeyUp(TWMKey Message)
{
  TCustomForm? Form = ParentForm;
  if((Form != null) && (Form != this) && Form.KeyPreview && Form.DoKeyUp(Message))
    return true;

  if(!ControlStyle.contains(ControlStyles.NoStdEvents))
  {
    TKeyCode Key = TKeyCode(Message.CharCode);
    KeyUp(Key, Message.ShiftState);
    if(Key.Code == 0 || Key.Code == null)
    {
      Message.Result = 0;
      return true;
    }
  }
  return false;
}