"MessageScreen" - Blocking(!) Message- and InputDialogs and "Live" StatusMessages (with Abort option)
No need for callbacks or extra threads or ...
- Live Status messages (show the user at every time, what you are just doing)
- Blocking(!) Input Dialog
- Blocking(!) Message Dialog
- "Abort option" at every time
Sample Code:
procedure TfrmMain.btnTestClick(Sender: TObject);
var
Nam: String;
i: Integer;
Br: Boolean;
begin
MS.Show;
try
// "Live" Status Messages:
MS.StatusMsg('Step 1 / 3 ...');
Sleep(4000); // Do Som