在Edit中怎样将光标定位文本的最后？
我想在初始化的时候，Edit中前部的字符是固定，从数据库中取出，然后把光标定位在后面，不知道怎么实现，高手帮忙，谢谢！！！ 问题点数：20、回复次数：15Top
1 楼jinjazz（近身剪）回复于 2005-06-02 09:49:40 得分 5
setfocus;
Selstart:=Top
2 楼zzllabc（抱朴子--清心释累，绝率忘情）回复于 2005-06-02 09:52:06 得分 5
Edit1.SetFocus;
Edit1.SelStart := length(Edit1.Text);Top
3 楼cyxlsm（）回复于 2005-06-02 09:54:23 得分 0
不懂啊，比方我初始化时，edit1.text:='冀D-',然后把光标定位在‘-’的后边Top
4 楼cyxlsm（）回复于 2005-06-02 10:08:39 得分 0
非常感谢！！！Top
5 楼cyxlsm（）回复于 2005-06-02 15:56:37 得分 0
还有一点问题，怎样将edit的输入的字符数限制在9个以内呢？Top
6 楼Erice（白雪公猪）回复于 2005-06-02 16:04:27 得分 5
unit LabeledEditint;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, StdCtrls, ExtCtrls;
type
TLabeledEditint = class(TLabeledEdit)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
procedure CreateParams(var Params: TCreateParams); override;
procedure WMChar(var Message: TWMChar); message WM_CHAR;
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('Samples', [TLabeledEditint]);
end;
procedure TLabeledEditint.CreateParams(var Params: TCreateParams);
begin
inherited;
Params.Style:=Params.Style or ES_RIGHT;
end;
procedure TLabeledEditint.WMChar(var Message: TWMChar);
begin
if (Chr(Message.CharCode)in [#48..#57,#46,#13,#8,#190,#37]) then
inherited;
end;
end.
Top
7 楼wenjianyao（建）回复于 2005-06-02 16:04:37 得分 0
Edit1.SetFocus;
Edit1.SelStart := length(Edit1.Text);
maxlength设置为9。默认的0是无限制的Top
8 楼xixuemao（钱不是问题，问题是没钱）回复于 2005-06-02 16:12:49 得分 0
在edit控见的keypress事件里判断length，如果超过9个就beep报警。Top
9 楼tkdyzc（）回复于 2005-06-02 16:15:04 得分 5
在你的窗体显示事件里写OnShow
Edit1.SetFocus;
Edit1.SelStart:=length(Edit1.Text);
自动定位到后面
Top
10 楼cyxlsm（）回复于 2005-06-02 16:50:58 得分 0
wenjianyao(建)，maxlength在输入的时候控制不了呀，超过了还能输入的
xixuemao(吸血猫),能不能具体给我写写那个keypress事件？谢谢Top
11 楼comerliang（天地良心)(性欲被自己倒分倒没了，以后再也不敢倒分了，想倒分的兄弟看看我的下场吧，男人没了性欲真不爽）回复于 2005-06-02 18:12:19 得分 0
maxlength不可以控制嘛？不懂
Top
12 楼Earthnut（*）回复于 2005-06-02 18:50:25 得分 0
Edit1.maxlenght:=9;Top
13 楼pjy（古虫）回复于 2005-06-02 19:15:34 得分 0
用maxlength
不要用keypress，除非你把粘贴键也都屏蔽掉！Top
14 楼xixuemao（钱不是问题，问题是没钱）回复于 2005-06-03 10:18:49 得分 0
用maxlength
不要用keypress，除非你把粘贴键也都屏蔽掉！
有道理有道理，学习。。。。。。Top
15 楼hellolongbin（一个人(自从扩充话题改版，再也不去灌水乐园了)）回复于 2005-06-03 10:32:07 得分 0
晕
典型的控件基本属性不熟症……Top
