【结】怎样控制光标的定位问题???**

huangyue

RT
   我想在我输入文本的时候控制键盘的输入,比如有个"字段1",它的字段大小是3个字符(假如),然后我输入 "123"之后光标就只能停留在"3"后面,这个时候在这个编辑区域里面光标只能向前移动!当我按键盘的其他按键的时候都不能对这个光标进行操作,除了"TAB"键(当然了,按删除键删除字符是可以的)怎么实现??

zfang

不知道这样是否就是楼主要的效果（如果不是，就请楼主参考代码试试看）
procedure TKBBD1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Business.System.StringUtils.Length(TEdit(Sender).text) >= 3 then
  begin
    if key <> #8 then
      key := #0;
  end;
end;

procedure TKBBD1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
  if Business.System.StringUtils.Length(TEdit(Sender).text) >= 3 then
  begin
    if TEdit(Sender).SelStart <=3 then
      if key =  Borland.Delphi.Windows.vk_Left  then
        key := Borland.Delphi.Windows.vk_right;
  end;
end;

huangyue

最初由 zfang 发布
[B]不知道这样是否就是楼主要的效果（如果不是，就请楼主自己再修改代码试试看）
procedure TKBBD1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Business...

以下省略...... [/B]

我是想控制功能的整个编辑区域的怎么写(功能是引用表格文档的)?  (如图)

zfang

表格文档好像不支持。

huangyue

在功能窗体上有KeyDown和KeyPress事件...不能控制么??我有好几个功能都是引用表格文档来做的哦...不支持的话难道重做??帮帮忙想下有甚么好的办法解决??

zfang

那是窗体上的事件，不是文档上的，能不能这样儿，别用表格文档，用 表单文档，然后用Edit来做界面，目前只能这样子。表格文档目前就是不支持这些控制。

huangyue

用 表单文档 来做的话,如果我有好几个要填写的字段,那就是要放好几个Edit控件进去了?然后在相应的控件上面写相应的代码控制??这样就达不到理想的效果了.工作量也会增大.如果平台目前只能这样来做.那这个贴就先结了.Thanks zfang 的解答!

zfang

好，谢谢反馈！