by
126 13
1
7
8,959
90
Top 1% !
Popular
Famous
Pearl of Wisdom
Easy-to-find
Refined
OpenSource
Popularity: 530th place
Created
Modified Nov 13, 2014
Languagepascal
LicenseMIT_X11
OSAndroid
OSIOS
OSMac OS X
OSWindows

Non Blocking Message Dialog For Delphi XE7 Firemonkey

Copy Embed Code
<iframe id="embedFrame" style="width:600px; height:300px;"
src="https://www.snip2code.com/Embed/224831/Non-Blocking-Message-Dialog-For-Delphi-X?startLine=0"></iframe>
Click on the embed code to copy it into your clipboard Width Height
Leave empty to retrieve all the content Start End
MessageDlg(‘Do you want to press yes or no?’, System.UITypes.TMsgDlgType.mtInformation, [System.UITypes.TMsgDlgBtn.mbYes, System.UITypes.TMsgDlgBtn.mbNo], 0, procedure(const AResult: TModalResult) begin case AResult of { Detect which button was pushed and show a different message } mrYes: begin // pressed yes end; mrNo: begin // pressed no end; end; end ); // code here would get executed right away
If you want to be updated about similar snippets, Sign in and follow our Channels

blog comments powered by Disqus