如何在messagebox添加自定义图标？

Question

如何在messagebox添加自定义图标？

Answer 1

The following shows how you can use the MessgeBoxIndirect API function. It takes as its parameter a structure which contais the description of the messagebox to build. I encapsulated this API function in a procedure called MyAboutBox, which will show a MessageBox with the application main icon:{--snip--}
procedure MyAboutBox(Text: String);
var
   MsgPars: TMsgBoxParams;
begin
  with MsgPars do
  begin
    cbSize := SizeOf(MsgPars);
    hwndOwner := Sysinit.HInstance;
    hInstance := Sysinit.hInstance; //where to find resources
    lpszText := PChar(Text); //if using Delphi 1, must use StrPCopy.
    lpszCaption := 'About';
    dwStyle := MB_OK or MB_USERICON;
    lpszIcon := 'MAINICON'; //app's main icon, icluded in the *.exe
    dwContextHelpId := 0; //help context
    lpfnMsgBoxCallback := nil;
    dwLanguageId := LANG_NEUTRAL;
  end; //with
  MessageBoxIndirect(MsgPars);
end;
{--snip--}Then, you could use it in a event handler, like this:{--snip--}
procedure TForm1.Button1Click(Sender: TObject);
begin
  MyAboutBox('Example of changing the default MessageBox icons'#13 +
             'by Odilon Nelson - [email protected]');
end;
{--snip--}Note that, in the MyAboutBox proc, I used the following:{--snip--}
hwndOwner := Sysinit.HInstance;
hInstance := Sysinit.hInstance;
{--snip--}Well, I did this to avoid confusion between the two hinstance variables, since I'm using a *with* statement. One is the hinstance member of the TMsgBoxParams record, the other is the handle of the app, defined (and initialized) in the Sysinit unit
(remember that ObjectPascal is NOT case sensitive: hInstance and HInstance mean the same).