用arrow keys控制EDIT不起作用的问题

qqqqq

上下方向键在EDIT不起作用的问题。很平常的代码：
uses windows;      
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState
begin
if ((key=VK_DOWN) or (key=vk_return )) and  (activecontrol is Tedit) then
   begin
     Perform(WM_NEXTDLGCTL,0,0)
   end ;
end;
不起作用？到http://www.lazarus.freepascal.org/index.php/topic,14518.msg76888.html#msg76888找找   
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState );
begin
   caption:=chr(key);
end;

Will show that up arrow says '&'. This would basically mean you can't distinct arrow keys from typed characters with onKeyPress event.
And, how could it represent arrow keys as characters of 0..255? They go from 37..40.

qqqqq

no all code that works in delphi have to work or will work in fpc/lazarus, remember that delphi runs only under windows.

qqqqq

从上面的解释看，并不是全部代码都可以从DE移值到LA上，因为DE仅运行在windows下。
根据键值37 left，  38 up， 39 right， 40 down，改变代码如下：
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState  );
begin
if ((Key=40) or (key=13))and(activecontrol is Tedit) then
begin
   SelectNext(ActiveControl,true, true);
end
else
if (key=38) and  (activecontrol is Tedit) then
begin
   SelectNext(ActiveControl,false,true);
end;
end;
可以实现按ENTER或向下方向键移动EDIT焦点了。