Delphi. OmniThreads.Async – most simple example

hi, most simple example of OmniThread lib looks like

procedure TfrmDemoParallelAsync.btnAsyncClick(Sender: TObject);
begin
  btnAsync.Enabled := false;

  Parallel.Async(
    procedure
    begin
      // executed in background thread
      Caption := 'Work...';
      Sleep(500);
      MessageBeep($FFFFFFFF);
    end, Parallel.TaskConfig.OnTerminated(
    procedure(const task: IOmniTaskControl)
    begin
        // executed in main thread
      btnAsync.Enabled := true;
      Caption := 'Ready';
    end));
end;

procedure TfrmDemoParallelAsync.btnAsyncClick(Sender: TObject);

begin

btnAsync.Enabled := false;

Parallel.Async(

procedure

begin

// executed in background thread

Caption := 'Work...';

Sleep(500);

MessageBeep($FFFFFFFF);

end, Parallel.TaskConfig.OnTerminated(

procedure(const task: IOmniTaskControl)

begin

// executed in main thread

btnAsync.Enabled := true;

Caption := 'Ready';

end));

end;

GUI is responsive during executing the code…

Delphi. OmniThreads.Async – most simple example

MY PROJECTS

Recent Posts

Categories