小問題 |
尚未結案
|
cluise
一般會員 發表:2 回覆:1 積分:0 註冊:2005-10-28 發送簡訊給我 |
下面程式碼哪裡錯?
[code delphi] 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 TForm1.Button1Click(Sender: TObject); begin { TMsgDlgType type ------------------------ Value Meaning mtCustom A message box with a caption you supply (or, if you do not supply a caption, with the application title for a caption.) mtInformation A message box with the caption nformation? mtWarning A message box with the caption arning? mtError A message box with the caption rror? mtConfirmation A message box with the caption onfirm?that asks for confirmation before performing some action. If you do not supply an image to appear in the message box, it displays the confirmation icon. TMsgDlgBtn, TMsgDlgButtons type --------------------------------- Value Meaning mbNone Used to indicate no button in particular (when specifying that there is no default button) mbOk A button the text 'Ok' on its face. mbCancel A button with the text 'Cancel' on its face. mbYes A button with 'Yes' on its face. mbNo A button the text 'No' on its face. mbAbort A button with the text 'Abort' on its face mbRetry A button with the text 'Retry' on its face mbIgnore A button the text 'Ignore' on its face } MessageDlg('訊息提示詢問?', mtInformation, [mbOk], 0, mbOk); end; end.[/code] |
P.D.
版主 發表:603 回覆:4038 積分:3874 註冊:2006-10-31 發送簡訊給我 |
|
cluise
一般會員 發表:2 回覆:1 積分:0 註冊:2005-10-28 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |