按上下键的时候 Edit 中光标的位置不会改变(50)

F

fanwendou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-03

• #1

1、一个Form中放一个 Edit Edit1.text='fanwendou' 2、运行程序，Edit 获得焦点。 要求按上下键的时候，光标的位置在 Edit 中不改变

 

Z

znxia

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-03

• #2

procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if (key=38) or (Key=40) then key:=0;end;

 

F

fanwendou

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-03-04

• #3

多谢！是我复杂化了！