很简单的Delphi程序，可是不能运行，不知道错在哪里了

分类: 电脑/网络 >> 程序设计 >> 其他编程语言

问题描述:

这是一个测试d出对话框的小程序，用到了这个函数“function MessageDlg(const Msg: string; DlgType: TMsgDlgType;Buttons: MsgDlgButtons; HelpCtx: Longint): Integer;”可是在编译的时候却不能运行，Delphi报错： ':=' expected but '=' found。不知道该怎么改，麻烦大家看看：

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Button1: TButton;

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R dfm}

procedure TForm1Button1Click(Sender: TObject);

begin

if MessageDlg('你要离开系统吗？',mtconfirmation,[mbYes,mbNo],0)=mrYes then

begin

MessageDlg('系统关闭中',mtInformation,[mbOK],0)=mrOK then

Close;

end;

end

解析:

procedure TForm1Button1Click(Sender: TObject);

begin

if MessageDlg('你要离开系统吗？',mtconfirmation,[mbYes,mbNo],0)=mrYes then

begin

if MessageDlg('系统关闭中',mtInformation,[mbOK],0)=mrOK then

Close;

end;

end;

掉了一个if和end;

还有已经给了提示了':=' expected but '=' found

期望是:=,但是找到的是=

你把第一个参数 改为 HWND_BROADCAST Win 81 测试成功

        private static readonly IntPtr HWND_BROADCAST = new IntPtr(0xffff); //广播消息，所有顶级窗体都会接收

最后一个参数为2

以上就是关于很简单的Delphi程序，可是不能运行，不知道错在哪里了全部的内容，包括:很简单的Delphi程序，可是不能运行，不知道错在哪里了、求DELPHI代码，功能：在WIN7下，最好是WIN8和WIN10下都可以关闭和打开显示器、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！