一个关于edit框得到焦点的问题！！ (40分)

X

xiaoxiami0

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #1

procedure Tcheliangxinxi.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (ssctrl in shift) and (key=76) then
begin
edit1.text:='辽';
end;
end;
采鸟用以上代码，当用户一起按下ctrl键和L键时，在edit1框里显示’辽‘字，但是光标
在辽的前面闪动，怎么让光标在辽字的后面闪动呢？

对了，还有一个问题，怎样通过按按钮模仿键盘按了caps lock键？

 

Q

QuickSilver

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #2

if (ssctrl in shift) and (key=76) then
begin
edit1.text:='辽';
edit1.SelStart:=2;
end;

 

J

jonnylve

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #3

设置edit1获得焦点，可以这样写：edit1.setfocus

 

Q

QuickSilver

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #4

procedure TForm1.Button1Click(Sender: TObject);
begin
keybd_event(VK_CAPITAL,$45,KEYEVENTF_EXTENDEDKEY or 0, 0);
keybd_event(VK_CAPITAL,$45,KEYEVENTF_EXTENDEDKEY or KEYEVENTF_KEYUP, 0);
end;

 

W

wr960204

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #5

Edit1.SelStar:=(POS('辽',Edit1.text)+2);
edit1.SelLength:=0;

 

T

twos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-11

• #6

对使用edit.selstart和sellength

 

X

xiaoxiami0

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-14

• #7

多人接受答案了。