TntStdCtrls Namespace
procedure TntButton_CMDialogChar(Button: TButton; var Message: TCMDialogChar);
TntStdCtrls