type
TTextBox = class(TCustomControl)
private
procedure WMChar(var Message: TWMChar); message WM_CHAR;
...
end;
A message method does not have to include the override directive to override an inherited message method. In fact,
it doesn't have to specify the same method name or parameter type as the method it overrides. The message ID
alone determines which message the method responds to and whether it is an override.
Dostları ilə paylaş: