delphi memo、RichEdit怎么选取指定行?
比如我用一个ListBox和一个memo,当ListBox选定某一行时,memo跟着选定同一行,怎么实现?...
比如我用一个ListBox和一个memo,当ListBox选定某一行时,memo跟着选定同一行,怎么实现?
展开
展开全部
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;
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;
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询