照抄还是出错懂,请大帮一下! (4分)

  • 主题发起人 主题发起人 wlyft
  • 开始时间 开始时间
W

wlyft

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.FormCreate(Sender: TObject);

var
temp: Integer;
begin

SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @temp, 0);
end;

procedure Form1.OnClose(Sender: TObject;
var Action: TCloseAction);

var
temp: Integer;
begin

SystemParametersInfo(SPI_SCREENSAVERRUNNING, 0, @temp, 0);
end;
照抄还是出错:"[Error] netclient.pas(67): Missing operator or semicolon"
实在不懂,请大帮一下!
 
该不是因为这个吧?
procedure Form1.OnClose
改成
procedure <font color=red>T</font>Form1.OnClose

 
应该不是吧，我在我机上去掉 T 不是报告这个错
 
我觉得不是这个问题；
wlyft:到底这个错误是哪一行的？？
 
第67行
 
67行是哪行？
 
是个悬念
还是公布源程序吧
 
67,让我们猜呀. HaHa.....
 
SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @temp, 0);
就是这一行,谢谢!!
 
我用了你的代码运行，没有发现错误！！！奇怪？？
 
wlyft 和 心心 是什么关系
 
应该没关系
 
to wjiachun Delphi4.0有什么BUG吗?或者我没安好?
to Kang 心心是否和我一样只提一些好像第一次学编程的问题?
 
我奇怪，他怎么知道是67行？抄了同一程序吗？？
我有个歪主意：在这一行最后打个回车，然后来个Ctrl+Y，看看是不是这行后面有东东
 
kang:
>>照抄还是出错:"[Error] netclient.pas(67): Missing operator or semicolon"
就是67啦 ：-（
 
我脸红了.....
 
我发现SystemParametersInfo(SPI_SCREENSAVERRUNNING, 1, @temp, 0);
放到别的地方都不会出错,像bitbtn3.enabled:=false;也会这样
但statictext1.caption:='就不会这样';
就是放到FormCreate和FormActivate里面就出错了!
后来我发现FormCreate和FormActivate只要放一条命令就不会出错 why?
我是要让它窗口一出现就实现这功能
 
不会是delphi坏了？
不会是有不可见字符作怪？（将上下左右删光再写一次看看）
 
您必须登录或注册才可回复。

Similar threads

I
替换一个按键
回复
0
查看
540
import
I
I
图形的拖动
回复
0
查看
578
import
I
I
一个群发邮件的DELPHI代码
回复
0
查看
783
import
I
I
如何向指定程序发送消息
回复
0
查看
726
import
I
I
得到“桌面”及其下的子目录
回复
0
查看
605
import
I
后退
顶部