procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if length(edit1.Text)=6 then
begin
key:=#0;
sendmessage(self.handle,WM_NEXTDLGCTL,0,0);
end;
end;
回车 向下键往下走,上箭头往上走
procedure TFrmDevice.EdtDeviceIDKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key=VK_Return) or (Key=VK_Down) then
begin
Perform(WM_NEXTDLGCTL,0,0);
end;
if Key=VK_Up then
begin
Perform(WM_NEXTDLGCTL,1,0);
end;
end;