Delphi 信息框： 1. showmessage 。。。你懂得。。。 2. ShowMessagePos(const Msg: string; X, Y: Integer) : 指定位置顯示對話框 ShowmessagePos(‘dialog box’,100,100) 3. MessageDlg(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint): Word;www.2cto.com MessageDlg('hint',mtInformation,[mbOK],0); TMsgDlgType ： mtwaring…… TMsgDlgButtons : mbok……. 4. MessageDlgPos(const Msg: string; DlgType: TMsgDlgType; Buttons: TMsgDlgButtons; HelpCtx: Longint; X, Y: Integer): Word; 指定位置顯示對話框 MessageDlgPos('information',mtInformation,[mbOK],0,100,100); 5. MessageBox(const Text, Caption: PChar; Flags: Longint = MB_OK): Integer; MessageBox(0,'information','title',MB_YESNOCANCEL); 6. InputBox(const ACaption, APrompt, ADefault: string): string; InputBox('Title','Information',''); 7. InputQuery(const ACaption, APrompt: string; var Value: string): Boolean if InputQuery('title','information',s) then showmessage(s)
