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);
var
text : string;
btn :integer;

begin
   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);
      Exit
end;

/////////////
Thanks, as always, for your help.
Frank

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 coloreddialog.zip 553.14 kb, 99 downloads since 2022-04-24 

brian

Re: Change ShowMessage box text color

Brian,
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.
.
Thanks
Frank