in msewidgets.pas
function showmessage(const actionbefore: notifyeventty; const atext:
msestring; const caption: msestring = ''): modalresultty;
begin
if actionbefore<>nil then begin
actionbefore(nil);
end;
result:= showmessage(atext,caption,[mr_ok],mr_ok,[],0,'');
end;
Then I can play custom sound such as :
....
....
uses
main_mfm,mmsystem;
procedure tmainfo.playsounderr(const sender: TObject);
begin
PlaySound('c:\Windows Ding.wav', 0, SND_ASYNC);
end;
procedure tmainfo.tbutton1_onexecute(const sender: TObject);
begin
showmessage(@playsounderr,'text message','caption');
end;
I was test it and all it's OK.
Thanks
------------------------------------------------------------------------------
Live Security Virtual Conference
Exclusive live event will cover all the ways today's security and
threat landscape has changed and how IT managers can respond. Discussions
will include endpoint security, mobile security and the latest in malware
threats. http://www.accelacomm.com/jaw/sfrnl04242012/114/50122263/
_______________________________________________
mseide-msegui-talk mailing list
mseide-msegui-talk@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/mseide-msegui-talk
