memo如何选中一行!急急急呀! (50分)

  • 主题发起人 主题发起人 tt55
  • 开始时间 开始时间
T

tt55

Unregistered / Unconfirmed
GUEST, unregistred user!
我想实现当鼠标点击MEMO中某处时则次行被选中,获焦点
我如何选中此行,并获得此行的文本内容?谢谢!!!
 
双击可以选中一行,SelText得到选中内容
 
完全同意楼上说的,
双击某一行时,此行变兰,
这时memo1.seltext就是选中的文本,
你可以把它付给其他的
edit1.text:=memo1.seltext;
 
有没有只点击一下就选中的方法呢,而且是选中一整行而不是文本?谢谢
 
获得光标的行数,用seltext等实现。具体我没做过。你试一下。
 
不好意思,我如何获得光标所在的行数呢
 
getcursorpos
 
//不能什么都要现成的,人的成长最终还是要靠自己
procedure TForm1.Memo1Click(Sender: TObject);
var
i: integer;
iTmp: integer;
iCount: integer;
begin
iTmp := memo1.CaretPos.Y;
iCount := 0;
for i:= 0 to iTmp-1 do
begin
iCount := iCount + Length(memo1.Lines.Strings)+Length(#13#10);
//每行有回车换行
end;
memo1.SelStart := iCount;
memo1.SelLength := Length(memo1.Lines.Strings[iTmp]);
end;
 
接受答案了.
 
后退
顶部