什么意思,是不是要求不能输入内容如Edit等;
可以在Edit的KeyPress中这样设定:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
key := #0;
end;
可以在Edit的KeyPress中这样设定:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
key := #0;
end;
调试欢乐多
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货