BitBtn with icons to MessageDlg
lazarus / 31-LCL

----------------------------------------------------------------------
Milsa · 2015-10-13 17:30

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

----------------------------------------------------------------------
wp · 2015-10-13 23:21

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

Code: Pascal  [Select][+][-]window.onload = function(){var x1 =
document.getElementById("main_content_section"); if (x1) { var x =
document.getElementsByClassName("geshi");for (var i = 0; i function
MyMessageDlg(const aMsg: string; DlgType: TMsgDlgType;  Buttons:
TMsgDlgButtons): TModalResult;begin  with CreateMessageDialog(aMsg,
DlgType, Buttons) do  begin    Result := ShowModal;    Free; 
end;end; procedure TForm1.Button1Click(Sender: TObject);begin 
MyMessageDlg('Something is wrong...', mtError, [mbOK, mbCancel]);end;

----------------------------------------------------------------------
Milsa · 2015-10-14 19:16

Thank you very much.