[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]

    to determine position of cursor in edit field try this:

    Lpos := SendMessage(memo1.Handle,EM_LINEFROMCHAR,Memo1.SelStart,0);
    Cpos := SendMessage(memo1.Handle,EM_LINEINDEX,Lpos,0);
    LineLength := SendMessage(memo1.handle, EM_LINELENGTH, Cpos, 0);
    CPos := Memo1.SelStart-CPos;

    Lpos=line position
    Cpos=Cposition
    LineLength = number of chacters in currentline

[Back to DELPHI SWAG index] [Back to Main SWAG index] [Original]