BitBtn with icons to MessageDlg

[Milsa]

I want show MessageDlg Window with icons on buttons (BitBtn). It is possible?

[wp]

Use CreateMessageDialog from Dialogs.pas - it looks a bit different, though:

Code: Pascal  [Select][+][-]

1. function MyMessageDlg(const aMsg: string; DlgType: TMsgDlgType;
2.   Buttons: TMsgDlgButtons): TModalResult;
3. begin
4.   with CreateMessageDialog(aMsg, DlgType, Buttons) do
5.   begin
6.     Result := ShowModal;
7.     Free;
8.   end;
9. end;
10.  
11. procedure TForm1.Button1Click(Sender: TObject);
12. begin
13.   MyMessageDlg('Something is wrong...', mtError, [mbOK, mbCancel]);
14. end;  
15.  

[Milsa]

Thank you very much.