精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Windows API函数>>Re:请金龙看一看!

主题:Re:请金龙看一看!
发信人: kingron(金龍)
整理人: teleme(2000-12-29 11:26:58), 站内信件
  对不起,我没注意问题,上次的确是达到Tab而不是Shift+Tab,修改如下:
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var
 i:integer;
begin
if (Key=vk_up) and (form1.ActiveControl.ClassName='TEdit') then
  begin
    key := 0;
    for i:=0 to form1.ControlCount-1 do
    if form1.Controls[i] is twincontrol then
    if ((form1.Controls[i]) as twincontrol).taborder=form1.ActiveControl.TabOrder-1 then
      (form1.Controls[i] as twincontrol).setfocus;
  end;
end;



----
██████
█┏━━┓█
█┃之金┃█   访问Delphi版请点击这儿:Delphi版直达快车
█┃印龍┃█
█┗━━┛█
██████

[关闭][返回]