（如图）delphi中有关开发的一个问题。请大哥给出思路代码。

2013-08-05 12:20:56 246 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

lijing15889662499 墨衍会员 · AI 创作全网分发关注 + 加入社区

ros_control硬件接口实战：从零构建机器人控制框架本文详细介绍了ros_control硬件接口在机器人控制框架中的核心作用与实践方法。通过解析硬件接口类型、实现标准接口、构建主控制循环及自定义功能扩展，帮助开发者从零构建高效的机器人控制系统，提升硬件与ROS的协同效率。阅读详情

现在红框内的信息都是通过扫描一维码。
但是有些人不规范操作，就用手输入这些信息，然后敲个回车。
有什么好方法可以杜绝这中情况吗？就是一定是扫描才可以。

跪求

...全文

跟着团子学SAP CO：基于成本的完工百分比结算：Cost-based POC（以项目为例）本文以英国及北美会计准则下的基于成本的POC的销售型项目结算对PS模块中的完工百分比进行介绍阅读详情

lijing15889662499

语言基础/算法/系统设计 16,741 成员 33,233 内容

+ 关注 + 加入社区

切换为时间正序

simonhehe 2013-08-06

打赏
举报

提供一个间接招: 界面放两个Edit, Edt1(只读, 供显示扫描码, 可获取焦点) Edt2(藏起来, 别让用户操作到, Tabstop设为false, 扫描枪的码首先进入edt2, 然后在Onchange事件中赋给Edt1)

zhengyc653 2013-08-05

打赏
举报

在 KeyPress 事件中屏蔽一切按键

hsfzxjy 2013-08-05

打赏
举报

将该框设为只读？

mdejtod 2013-08-05

打赏
举报

ReadOnly 为true

lijing15889662499 2013-08-05

打赏
举报

引用 11 楼 mdejtod 的回复:

[quote=引用 7 楼 feiba7288 的回复:] [quote=引用 6 楼 lijing15889662499 的回复:] [quote=引用 4 楼 xxcsoftware 的回复:] 把它的属性设为ReadOnly=True,这样不影响扫描的输入

只读模式，不影响扫描？？？？？[/quote] 扫不了，呵呵，扫描枪接口和键盘接口是一样的，所以扫描枪扫描就等于是键盘输入。[/quote] 扫描后，可以得到编码吧，直接赋值不就可以了[/quote] 扫描的地方就可以手动输入。就不能限制了啊

mdejtod 2013-08-05

打赏
举报

引用 7 楼 feiba7288 的回复:

[quote=引用 6 楼 lijing15889662499 的回复:] [quote=引用 4 楼 xxcsoftware 的回复:] 把它的属性设为ReadOnly=True,这样不影响扫描的输入

只读模式，不影响扫描？？？？？[/quote] 扫不了，呵呵，扫描枪接口和键盘接口是一样的，所以扫描枪扫描就等于是键盘输入。[/quote] 扫描后，可以得到编码吧，直接赋值不就可以了

lijing15889662499 2013-08-05

打赏
举报

引用 9 楼 feiba7288 的回复:

将那个10调小些，比如5

麻烦加一下我的QQ：345565208 请教你一下。

feiba7288 2013-08-05

打赏
举报

将那个10调小些，比如5

lijing15889662499 2013-08-05

打赏
举报

引用 5 楼 feiba7288 的回复:

给你个Demo，我在公司是这么用的：


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    tKeyIn: TDateTime;
    FOldWndProc: TWndMethod;
  public
    { Public declarations }
    procedure NewWndProc(var Message: TMessage);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  tKeyIn := Now;
  FOldWndProc := Edit1.WindowProc;
  Edit1.WindowProc := NewWndProc;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  n: integer;
begin
  if Length(Edit1.Text) < 2 then
  begin
    tKeyIn := Now;
    exit;
  end;

  n := Round((Now - tKeyIn) *24*60*60);
  if n >= Ceil(Length(Edit1.Text) / 10) then//这里的10是一秒内允许输入的最大字符不超过10，你可以改大来
  begin
    MessageDlg('掃描時間超過' + IntToStr(Ceil(Length(Edit1.Text) / 20))
      + '秒！不可手動輸入，請用掃描槍掃描！', mtError, [mbCancel], 0);
    Key := #0;
    Edit1.Text := '';
    Edit1.SetFocus;
  end;
end;

procedure TForm1.NewWndProc(var Message: TMessage);
begin
  if (Message.Msg <> WM_CUT) and (Message.Msg <> WM_COPY) and (Message.Msg <> WM_PASTE) then
    FOldWndProc(Message);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Edit1.WindowProc := FOldWndProc;
end;

end.

那这和timer控件差不多吧？我要输入的字符就是F1020-056 ，就这9个。时间点掐不好啊，

feiba7288 2013-08-05

打赏
举报

引用 6 楼 lijing15889662499 的回复:

[quote=引用 4 楼 xxcsoftware 的回复:] 把它的属性设为ReadOnly=True,这样不影响扫描的输入

只读模式，不影响扫描？？？？？[/quote] 扫不了，呵呵，扫描枪接口和键盘接口是一样的，所以扫描枪扫描就等于是键盘输入。

lijing15889662499 2013-08-05

打赏
举报

引用 4 楼 xxcsoftware 的回复:

把它的属性设为ReadOnly=True,这样不影响扫描的输入

只读模式，不影响扫描？？？？？

feiba7288 2013-08-05

打赏
举报

给你个Demo，我在公司是这么用的：


unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Math;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    procedure FormCreate(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
    tKeyIn: TDateTime;
    FOldWndProc: TWndMethod;
  public
    { Public declarations }
    procedure NewWndProc(var Message: TMessage);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  tKeyIn := Now;
  FOldWndProc := Edit1.WindowProc;
  Edit1.WindowProc := NewWndProc;
end;

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
var
  n: integer;
begin
  if Length(Edit1.Text) < 2 then
  begin
    tKeyIn := Now;
    exit;
  end;

  n := Round((Now - tKeyIn) *24*60*60);
  if n >= Ceil(Length(Edit1.Text) / 10) then//这里的10是一秒内允许输入的最大字符不超过10，你可以改大来
  begin
    MessageDlg('掃描時間超過' + IntToStr(Ceil(Length(Edit1.Text) / 20))
      + '秒！不可手動輸入，請用掃描槍掃描！', mtError, [mbCancel], 0);
    Key := #0;
    Edit1.Text := '';
    Edit1.SetFocus;
  end;
end;

procedure TForm1.NewWndProc(var Message: TMessage);
begin
  if (Message.Msg <> WM_CUT) and (Message.Msg <> WM_COPY) and (Message.Msg <> WM_PASTE) then
    FOldWndProc(Message);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Edit1.WindowProc := FOldWndProc;
end;

end.

xxcsoftware 2013-08-05

打赏
举报

把它的属性设为ReadOnly=True,这样不影响扫描的输入

feiba7288 2013-08-05

打赏
举报

屏蔽掉粘贴功能，然后用输入时间来卡。

（如图）delphi中有关开发的一个问题。请大哥给出思路代码。

相关推荐