在密码验证的form中,怎样才能使得在edit中输入密码后,按回车表示鼠标按了确定按钮,按ESC键关闭form 按钮有Cancel和Default属性看看吧 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if key=27 then close; if key=13 then showmessage('确定');end; Form1.EditKeyDown(Sender: TObject;key: word);begin case key of 13: btnOKClick(Sender); //回车 27: Form1.Close; //Esc end;end; Form1.EditKeyDown(Sender: TObject;key: word);begin case key of 13: btnOKClick(Self); //回车 27: ;btnEscClick(Self); //Esc end;end; 同意一楼的,把button的default和cancel属性设为True就可以了 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if key=27 then close; if key=13 then showmessage('确定');end; 我试过了好象不行呀!可能我表达有误,我要一进入界面,按键盘上的ESC键则关闭form,在edit中输入完密码后,按键盘上的回车键则进入下一个界面. procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin if key=27 then close; end; button1.default:=true;button2.cancel:=false; 和QQ、MSN左下角新闻问题? 共享内存(CreateFileMapping,OpenFileMapping) 如何传递 结果集? 挑战性的问题,请进 不大的阅览室,发现宝贝。 请问关于logo的问题 关于两个对象之间用线条链接的问题,高分求助 两个ADOQuery指向同一个数据库表,在一个中增加记录,另一个是否自动增加记录? ^_^ 各位高手请问如何将RTF格式的内容转换成HTML格式。 copyfile的问题? DELPHI对ACCESS中日期时间型的操作!!! VarIsEmpty和VarIsnull的问题? 为什么行不通?
Shift: TShiftState);
begin
if key=27 then
close;
if key=13 then
showmessage('确定');
end;
begin
case key of
13: btnOKClick(Sender); //回车
27: Form1.Close; //Esc
end;
end;
begin
case key of
13: btnOKClick(Self); //回车
27: ;btnEscClick(Self); //Esc
end;
end;
Shift: TShiftState);
begin
if key=27 then
close;
if key=13 then
showmessage('确定');
end;
Shift: TShiftState);
begin
if key=27 then
close;
end;
button2.cancel:=false;