急问

Responds as if the control received a specified Windows message. function Perform(Msg: Cardinal; WParam, LParam: Longint): Longint;DescriptionCall Perform to bypass the Windows message queue and send a message directly to the control?
s window procedure.Perform fills a message record (of type TMessage) with the message ID passed in the Msg parameter, the message parameters passed in WParam and LParam, and a result field of zero. Perform then passes the message record to the WindowProc method for processing.
The following example demonstrates the use of the Perform method to send a windows message. The EM_SCROLLCARET message scrolls the caret in the rich edit into view. The caret position is set to the contents of the mask edit prior to calling Perform.procedure TForm1.Button1Click(Sender: TObject);begin
with RichEdit1 do
  Begin
    SelStart := StrToInt(MaskEdit1.Text);
    RichEdit1.Perform(EM_SCROLLCARET, 0, 0);
  end;
end;