Question

delphi memo、RichEdit怎么选取指定行?

比如我用一个ListBox和一个memo，当ListBox选定某一行时，memo跟着选定同一行，怎么实现？

Answer 1

procedure TForm1.ListBox1Click(Sender: TObject);
var
i:Integer;
begin
i:= ListBox1.ItemIndex;
Memo1.SelStart:=SendMessage(Memo1.Handle, EM_LINEINDEX, i, 0); ;
Memo1.SelLength := Length(Memo1.Lines[i]);
Memo1.SetFocus;
end;