进销存管理软件版1楼: procedure TloginForm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
speedbutton1.Click;
end;
上面代码是想用回车代替按按纽，执行时出现异常
project jwglxt.exe raised exception class EPrivilege with message ＇＇Privileged
instruction＇＇.Process stopped.Use Step or Run to continue.

请大家给予指点

2楼: 你把点击按钮的内容写成一个函数不就可以了？？
procedure TloginForm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
YourFun();
end; 如仓库管理免费软件

3楼: procedure TloginForm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
speedbutton1.Click;
end;
没问题啊
你看看speedbutton1.onclick里面写了嘛！

4楼: 这样改:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then speedbutton1click(sender);
end;

5楼: 都不行，怪了，我直接单击speedbutton1不出现异常，而按回车执行同一段代码却出现这样的异常，如果谁有兴趣，请帮我解决这个问题

6楼: procedure TloginForm.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
[red]Speedbutton1Click(SpeedButton1);[/red]
end;

进销存管理软件版7楼: to:zqw0117
加 [red].... [/red]是什么意思

8楼: 他想用UBB代码,,可惜.................

9楼: 应该没问题呀

10楼: 谢谢大家参与，结帖

11楼: 结贴你要给分啊!

12楼: 从这个贴子我想到了一个问题，编得再好的软件，总有一些问题想不到！
本贴就无论如何结不了贴！ 如简单进销存管理软件

13楼: 接受答案了.