发信人: 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版直达快车
█┃印龍┃█
█┗━━┛█
██████ |
|