如何让memo控件光标移到行尾。(30分)

B

bgi0065

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-04

• #1

我现在在编辑一个编辑器，我想在程序中添加一项功能，就是在文件中可以通过点击按钮
插入
if then

end if
但是我不知道如何使光标自动移到行尾，还有就是当我插入这些语句之后光标怎样才能停留
在end if之后。

 

S

SuperMMX

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-04

• #2

没人回答吗?

function PlaceCaret(aMemo: TMemo; aLineIndex: Integer);
begin
aMemo.SelStart :=
SendMessage(aMemo1.Handle, EM_LINEINDEX, aLineIndex, 0) +
Length(aMemo.Lines[aLineIndex]);
Memo1.SetFocus;
end;

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-05

• #3

如果只是移动到行尾, 可以先给 memo 焦点, 然后发送虚拟键值 "End" 就可以了

 

B

bgi0065

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-08-08

• #4

谢谢SuperMMX