Delphi中,如何能 让 屏幕键盘 输入 TEdit 无效?
展开全部
在Edit的OnKeyDown事件中处理
procedure TForm1.TEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Key := #0;
end;
procedure TForm1.TEdit1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Key := #0;
end;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
把Tedit的enable属性设置为false就可以了啊
或者设置它的readonly属性也可以啊
或者设置它的readonly属性也可以啊
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询