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

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

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

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


delphi delphi-xe anydac
person AirWolf    schedule 25.02.2013    source источник

Ответы (1)


arrow_upward
2
arrow_downward

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

    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) прерывает выполнение запроса :)

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

person AirWolf    schedule 28.02.2013
comment
Спасибо, что поделились своим решением. - person Leonardo Herrera; 28.02.2013
comment
Нет проблем, надеюсь, это поможет другим :) - person AirWolf; 01.03.2013