怎样把光标移到 Memo 上的指定的行列位置上？

Question

怎样把光标移到 Memo 上的指定的行列位置上？

Answer 1

LYFTP片段代码procedure TViewerForm.GotoLine1Click(Sender: TObject);
var
  I, SkipChars: Integer;
begin
  I:=StrToInt64Def(InputBox('Goto Line ...', Format('Line (1..%d)', [Memo.Lines.Count]), ''), 1);
  if I>Memo.Lines.Count then I:=Memo.Lines.Count;
  SkipChars := Memo.Perform(EM_LINEINDEX, I-1, 0);
  Memo.SetFocus;
  Memo.SelStart := SkipChars;
  Memo.SelLength := Memo.Perform(EM_LINEINDEX, I, 0) - 1 - SkipChars;
end;LYFTP powered by LYSOft : http://lysoft.7u7.net