<< 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;