Cursor position 1

[Kenbla]

Hello, I have a questions for you. I need to know the position of the cursor in TMemo object.
The users can enter information in the TMemo object and when they push a button on the form I need to know what the current position is in that field.
Is this an easy task or? We use Delphi XE.
Regards,
Kenbla

 

[Glenn9999]

Reading TMemo.SelStart will get the current position of the cursor in terms of the number of characters that are in the TMemo.

procedure TForm1.Memo1KeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  Form1.Caption := 'Form1 : ' + IntToStr(Memo1.SelStart);
end;

It is not possible for anyone to acknowledge truth when their salary depends on them not doing it.

 

[Kenbla]

Thanks Glenn9999, that works just fine!