<< Click to display table of contents >> TSRichViewEdit.OnMessageControl |
Occurs when a message from AControl is received.
type
TSRVMessageControl = procedure(Sender: TSRichViewEdit;
AControl : TControl; var Message: TMessage) of object;
property OnMessageControl : TSRVMessageControl;
AControl – the control that sent the message. This control was inserted in the editor.
Message – the message from the control.
You can use this method to process messages from controls inserted in the editor. This is an alternative way to using events of these controls.
Example:
procedure TForm1.SRichViewEdit1MessageControl(
Sender: TSRichViewEdit; AControl: TControl; var Message: TMessage);
begin
// if 'Ready' button is pressed
if (AControl.Name = 'Ready') and (Message.Msg = WM_LBUTTONUP) then
...
end;