zusammenfalten · markieren

Delphi-Quellcode:

type
  TCheckThread = class(TThread)
  private
    FDialog: TProcessingDialog;
    procedure DoCheck;
  protected
    procedure Execute; override;
  public
    constructor Create(CreateSuspended: Boolean);
    destructor Destroy; override;
  end;

constructor TCheckThread.Create(CreateSuspended: Boolean);
begin
  inherited Create(CreateSuspended);

  FDialog := TProcessingDialog.Create(Application);
  FDialog.ShowModal;
end;

destructor TCheckThread.Destroy;
begin
  FDialog.Free;

  inherited Destroy;
end;

procedure TCheckThread.DoCheck;
var
  //...
begin
  MainForm.lblHint.Visible := False;

  FDialog.tbProgress.Max := MainForm.CheckedCount;

  for I := 0 to MainForm.lvList.Items.Count - 1 do
  begin
    if Terminated then Exit;

     //...
  end;

  FDialog.Close;
end;

procedure TCheckThread.Execute;
begin
  Synchronize(DoCheck);
end;

But after ShowModal it waiting for ModalResult. How I can use modal window inside thread?

Do you do eveything in your DoCheck Method? If so, executing eveything synchronizied defies the cause for a thread entirely. To your question: You can just set the ModalResult by yourself in code when the task has completed: FDialog.ModalResult := mrOK; Then you won't need FDialog.Close anymore as well.

Don't understand what I should do?

I want to perform checking procedure in thread, because that's quite long process. What is going on I want to show on list and on modal window (current data and progress bar). So, what to do to do it?

The problem is, that by having all the thread's code execute synchronized, you effectively have it running in the main-thread of your normal windows. (That is the purpose of synchronizing.) Depending on whether you have that level of control over the long process (i.e. it is your code), scrapping the thread and instead work with a sort of OnProgress() Event should be better suited for this.

Another thing: If you have the process (calculations or whatever) running in the main thread, but do display tasks in a separate thread, you basically are doing things backwards. Put the long running process into a thread, and have it send messages about it's status to a normal form to do status displays on. That would be the proper way.

Has anyone realized (except the OP) that the TCheckThread.Create will not succeed while the modal window is open? So no Execute or DoCheck or Synchronize is run.

Well, the entire concept is upside down and bogus

Zitat von Medium:

Well, the entire concept is upside down and bogus

That's why there is no short and correct answer.

I tried component for it and then I did similar with my thread class - working