各种类别的提示框的使用方法

bugxiong

• procedure ShowMessage (const Msg: string);
  

例子（单行）:

1. program LazMessage;
   
2. uses
   
3.   Dialogs;
   
4. begin
   
5.   ShowMessage('This is a message from Lazarus');
   
6. end.

复制代码

例子（多行）：

1. program LazMessage;
   
2. uses
   
3.   Dialogs;
   
4. begin
   
5.   ShowMessage('This is a multilines' + sLineBreak + 'message!' );
   
6. end.

复制代码

• function MessageBox (Text, Caption : PChar; Flags: Word): Integer;
  

例子：

1. uses
   
2.   Forms, Dialogs, LCLType;
   
3. 
   
4. procedure DisplayMessageBox;
   
5. var
   
6.   Reply, BoxStyle: Integer;
   
7. begin
   
8.   BoxStyle := MB_ICONQUESTION + MB_YESNO;
   
9.   Reply := Application.MessageBox('Press either button', 'MessageBoxDemo', BoxStyle);
   
10.   if Reply = IDYES then Application.MessageBox('Yes       ', 'Reply',MB_ICONINFORMATION)
    
11.     else Application.MessageBox('No         ', 'Reply', MB_ICONHAND);
    
12. end;

复制代码

• function MessageDlg (const Msg: string; AType: TMsgDlgType; AButtons: TMsgDlgButtons; HelpCtx: LongInt): Word;
  

例子：

1. uses
   
2.   Forms, Dialogs, LCLType, Controls;
   
3. 
   
4. procedure TryMessageDlg;
   
5. begin
   
6.   if MessageDlg('Question', 'Do you wish to Execute?', mtConfirmation,
   
7.    [mbYes, mbNo, mbIgnore],0) = mrYes
   
8.   then { Execute rest of Program };
   
9. end;

复制代码

• function InputBox (const ACaption, APrompt, ADefault: string); string;
  

例子：

1. uses
   
2.   Forms, LCLType, Dialogs, Controls;
   
3. 
   
4. procedure TryInputBox;
   
5. var
   
6.   UserString: string;
   
7. begin
   
8.   UserString := InputBox('Get some text input',
   
9.     'Please type in some information', 'Some sample text');
   
10.   ShowMessage(UserString)
    
11. end;

复制代码

• function InputQuery (const ACaption, APrompt: string; var Value: string): Boolean;
  

例子：

1. uses
   
2.   Forms, LCLType, Dialogs, Controls;
   
3. 
   
4. procedure TryInputQuery;
   
5. var
   
6.   QueryResult: Boolean;
   
7.   UserString: string;
   
8. begin
   
9.   if InputQuery('Question', 'Type in some data', TRUE, UserString)
   
10.   then ShowMessage(UserString)
    
11.   else
    
12.   begin
    
13.     InputQuery('Don''t be silly', 'Please try again', UserString);
    
14.     ShowMessage(UserString);
    
15.   end
    
16. end;

复制代码

• function PasswordBox(const ACaption, APrompt : String) : String;
  

类似InputQuery的方式，需要设置MaskInput = TRUE;

lhxzui

不错的分析。谢谢。我的提高感谢fpccn的众位大师。

heroical

调用的是系统提示框？还是想delphi一样重新生成的？