[lazarus] How to insert a small text into a Memobox?

[00153036]

I want to insert a text from a ListBox to a Memo. I've already got how  
to get the information form the Listbox... Now I want to insert that  
information where the memo's cursor is... I´ve tried to use the  
following thing to know where the cursor is:


procedure GetMemoRowCol (M : TMemo; var Row, Col : LongInt);
begin
  Row := SendMessage(M.Handle, EM_LINEFROMCHAR, M.SelStart, 0);
  Col := M.SelStart-SendMessage(M.Handle, EM_LINEINDEX, Row, 0);
end;

procedure SetMemoRowCol(M : TMemo; Row, Col : Integer);
begin
  M.SelStart := SendMessage(M.Handle, EM_LINEINDEX, Row, 0)
                + Col;
end;

When compiling, the message window says that SendMessage is not a  
valid identifier... Maybe the name of this method is not the right one  
under Lazarus, and valid only under Delphi...

HMB64




_________________________________________________________________
    To unsubscribe: mail [EMAIL PROTECTED] with
               "unsubscribe" as the Subject
  archives at http://www.lazarus.freepascal.org/mailarchives