Question

在delphi中怎么控制word中的光标

Answer 1

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin Edit1.selStart:= length(Edit1.Text);end;应该写这吧不过这种控制实在是不人性化确实KEYDOWN只能在输入时触发，但是根据楼主的要求，很明显是要求输入时候做此限制，他的意思应该是输入的时候不可以随意调整光标位置，如果通过代码赋值，根本不会存在此需求，另外之所以写在keydown里面而不写在OnChang里面，可以自己做个简单的测试对比下，结果很快就可以分辨出来了

Answer 2

你好,以下示例代码 将光标向右移动 lCount 个字符：
procedure TControlWord.MoveToRight(Selected: Boolean; lCount: Integer);
var
aUnit, aExtend, aCount : OleVariant;
begin
With FWordApp Do
Begin
aUnit := wdCharacter;
aExtend := wdExtend;
aCount := lCount;
If Selected Then
Selection.MoveRight(aUnit, aCount, aExtend)
Else
Selection.MoveRight(aUnit, aCount, EmptyParam);
End;
end;