分数刚好用玩,请大家帮帮忙 ( 积分: 0 )

  • 主题发起人 主题发起人 都当主席谁种地
  • 开始时间 开始时间

都当主席谁种地

Unregistered / Unconfirmed
GUEST, unregistred user!
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.
请大家给予指点
 
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.
请大家给予指点
 
你把点击按钮的内容写成一个函数不就可以了??
procedure TloginForm.Edit2KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then
YourFun();
end;
 
procedure TloginForm.Edit2KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then
speedbutton1.Click;
end;
没问题啊
你看看speedbutton1.onclick里面写了嘛!
 
这样改:
procedure TForm1.Edit1KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then
speedbutton1click(sender);
end;
 
都不行,怪了,我直接单击speedbutton1不出现异常,而按回车执行同一段代码却出现这样的异常,如果谁有兴趣,请帮我解决这个问题
 
procedure TloginForm.Edit2KeyPress(Sender: TObject;
var Key: Char);
begin
if key=#13 then
[red]Speedbutton1Click(SpeedButton1);[/red]
end;
 
to:zqw0117
加 [red].... [/red]是什么意思
 
他想用UBB代码,,可惜.................
 
应该没问题呀
 
谢谢大家参与,结帖
 
结贴你要给分啊!
 
从这个贴子我想到了一个问题,编得再好的软件,总有一些问题想不到!
本贴就无论如何结不了贴!
 
接受答案了.
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
775
import
I
后退
顶部