Topic: Change ShowMessage box text color
I would like to change the Text Color in a message box from Black to Red. The message box works OK, I would just like the WARNING message to stand out a little more. Here's the code for my message box:
procedure frmMainMenu_btnDelVessel_OnClick (Sender: TObject; var Cancel: boolean);
text : string;
btn := messageDlg('WARNING - This will DELETE this Vessel and all of the records for this Vessel. Please choose YES or NO on the next message'+text,mtWarning, mbCancel+mbOK, 0);
Thanks, as always, for your help.