Topic: Change ShowMessage box text color

Hi Everyone,

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 :integer;

   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.

2 (edited by brian.zaballa 2022-04-23 22:39:06)

Re: Change ShowMessage box text color

As for me, I would create form for my custom message/confirm dialog.

Post's attachments

Attachment icon 553.14 kb, 99 downloads since 2022-04-24 


Re: Change ShowMessage box text color

Thanks for you suggestion and sample program.  It looks pretty good to me but I haven't tried to implement it yet because I found a rather significant problem in my main program.
I'm trying to fix it before I try to make any other changes.
I just put in a new message on the forum about Parent/Child problem I'm having.