Дизайн формы AnyDac, диалог отмены запроса программирования

Question

У меня проблема с диалоговым окном AnyDac Cancel из компонента TADGUIxAsyncExecuteDialog, в основном мне нужно, чтобы пользователь мог отменить выполнение запроса, он работает отлично, но дизайн не соответствует программе, мне нужно отредактировать форму, которая показывает для пользователя, чтобы мои потребности, удалите значок AnyDac, измените заголовок и т. д. какие-либо идеи, как я могу это сделать?

Я использую AnyDac 6.0.3 Build 2713 Delphi XE

пробовал искать по всему интернету уже неделю, не повезло:)

Answer 1

Нашли обходной путь:)

    while AnyQuery.Command.State = csExecuting do
    begin
      Application.ProcessMessages;
      //do anything here while query is executing
      //the query has to be set to ResourceOptions.CmdExecMode = amAsync
      end;
    end;

Также вы можете отменить запрос, выполнив следующую команду

AnyQuery.AbortJob(False);

Мой код выглядит так:

AnyQuery.Active;
ShowProgressForm:= TShowProgressForm.Create(Application); 
ShowProgressForm.Label1.Caption := 'Generating Query Please Wait...';

while AnyQuery.Command.State = csExecuting do
begin
      Application.ProcessMessages;

      if ShowProgressForm.Cancel then
      begin
        AnyQuery.AbortJob(False);
        ShowProgressForm.Close;
        EXIT;
      end;
end;

ShowProgressForm.Close;

Cancel является глобальной логической переменной, объявленной в ShowProgressForm.pas когда вы нажимаете Cancel кнопка переменная становится True и AbortJob(False) метод прервет выполнение запроса:)

Надеюсь, поможет:)