begin

   MyRe          := TRichEdit(Sender);
   WasSelStart  := MyRE.SelStart;
   Row          := MyRE.Perform(EM_LINEFROMCHAR, MyRE.SelStart, 0);
   BeginSelStart:= MyRe.Perform(EM_LINEINDEX, Row, 0);
   EndSelStart  := BeginSelStart + Length(MyRE.Lines.Strings[Row]);

  // I didn''''t use the EM_LINELENGTH message, as the variables was avaiable via Delphi

   Edit1.Text := IntToStr(WasSelstart) + ''''-'''' +
   IntToStr(Row) + ''''-'''' +
   InttoStr(BeginSelStart) + ''''-'''' +
   IntToStr(EndSelStart);

end;

上一页  [1] [2] [3]