質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

ただいまの
回答率

90.53%

  • Delphi

    20questions

    DelphiはPascalを拡張してオブジェクト指向を導入したWindows, OS X,iOS,Androidのネイティブアプリケーションを開発するための言語です。旧称はObject Pascal。開発用IDE「Delphi」にあわせ現在の名前に改称されました。

AniIndicatorのアニメーションが動かない

受付中

回答 0

投稿

  • 評価
  • クリップ 0
  • VIEW 1,079

Yasuhiro_S

score 2

実現したいこと

Delphi Berlin のFiremonkeyにてスケジュール管理アプリを作っています。
DB接続にて処理に時間がかかるので、画面がフリーズしていないこと(処理中であること)をユーザに伝えたい為、AniIndicatorを使って画面上に円のインジケータを表示させたいです。

発生している問題

DB接続処理中にて、AniIndicatorは表示されますが、円のインジケータが止まって回転しません。Android,iPhone両方とも同じ事象が発生しています。

該当のソースコード

//スケジュール取得処理
procedure TForm1.Button2Click(Sender: TObject);
var loc_sql_query      : String;
    loc_i              : Integer;
    loc_j              : Integer;
begin
    AniIndicator1.Visible := True;
    AniIndicator1.Enabled := True;
    Application.ProcessMessages;

  loc_sql_query := SELECT  * ... //割愛

    //DB接続           
    ClientModuleUnit1.ClientModule1.ServerMethods1Client.Set_sql_query_temp(loc_sql_query);
    ClientModuleUnit1.ClientModule1.cds_QueryTemp.Close;
    ClientModuleUnit1.ClientModule1.cds_QueryTemp.Open;

    ClientModuleUnit1.ClientModule1.cds_QueryTemp.First;
        //StringGridの描画設定
        loc_j := 0;
        StringGrid1.RowCount := ClientModuleUnit1.ClientModule1.cds_QueryTemp.RecordCount;
        while not ClientModuleUnit1.ClientModule1.cds_QueryTemp.Eof do
        begin
                    loc_i := 0;
                    while loc_i < 2 do
                    begin
                        if loc_i = 0 then
                        begin
                            //開催日時
                            StringGrid1.Cells[loc_i,loc_j] :=ClientModuleUnit1.ClientModule1.cds_QueryTemp.FieldByName('START_DATE_TIME').AsString;
                        end
                        else
                        begin
                            //サービス名
                            StringGrid1.Cells[loc_i,loc_j] :=ClientModuleUnit1.ClientModule1.cds_QueryTemp.FieldByName('SERVICE_NAME').AsString;
                        end;
                        INC(loc_i);
                    end;
                    INC(loc_j);
                    ClientModuleUnit1.ClientModule1.cds_QueryTemp.Next;
        end;
        AniIndicator1.Visible := False;
        AniIndicator1.Enabled := False;
        Application.ProcessMessages;

end;

※以下、画面のViewです。
![イメージ説明](31ecbaeaf0020099544e0309cb284021.png)

試したこと

TThread.CreateAnonymousThread を使い、別スレッドにて処理を行ってもみましたが実現できませんでした。

    TThread.CreateAnonymousThread(
    procedure()
    begin
        try
          TThread.Synchronize(TThread.CurrentThread,procedure
            begin
                AniIndicator1.Visible := True;
                AniIndicator1.Enabled := True;
                Application.ProcessMessages;

                //上記と同じく、DB接続とStringGridへの描画

                AniIndicator1.Visible := False;
                AniIndicator1.Enabled := False;
                Application.ProcessMessages;
            end);
        finally
        end;

    end).Start;
end;

補足情報

<開発環境>
Delphi 10.1 Berlin update2 (Win-64bit)
DataSnapサーバを用いてDB接続を実施
DataBase:FireBird
<検証端末>
Android (4.4.2)
iPhone (iOS 10.2)

  • 気になる質問をクリップする

    クリップした質問は、後からいつでもマイページで確認できます。

    またクリップした質問に回答があった際、通知やメールを受け取ることができます。

    クリップを取り消します

  • 良い質問の評価を上げる

    以下のような質問は評価を上げましょう

    • 質問内容が明確
    • 自分も答えを知りたい
    • 質問者以外のユーザにも役立つ

    評価が高い質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

    質問の評価を上げたことを取り消します

  • 評価を下げられる数の上限に達しました

    評価を下げることができません

    • 1日5回まで評価を下げられます
    • 1日に1ユーザに対して2回まで評価を下げられます

    質問の評価を下げる

    teratailでは下記のような質問を「具体的に困っていることがない質問」、「サイトポリシーに違反する質問」と定義し、推奨していません。

    • プログラミングに関係のない質問
    • やってほしいことだけを記載した丸投げの質問
    • 問題・課題が含まれていない質問
    • 意図的に内容が抹消された質問
    • 広告と受け取られるような投稿

    評価が下がると、TOPページの「アクティブ」「注目」タブのフィードに表示されにくくなります。

    質問の評価を下げたことを取り消します

    この機能は開放されていません

    評価を下げる条件を満たしてません

    評価を下げる理由を選択してください

    詳細な説明はこちら

    上記に当てはまらず、質問内容が明確になっていない質問には「情報の追加・修正依頼」機能からコメントをしてください。

    質問の評価を下げる機能の利用条件

    この機能を利用するためには、以下の事項を行う必要があります。

まだ回答がついていません

同じタグがついた質問を見る

  • Delphi

    20questions

    DelphiはPascalを拡張してオブジェクト指向を導入したWindows, OS X,iOS,Androidのネイティブアプリケーションを開発するための言語です。旧称はObject Pascal。開発用IDE「Delphi」にあわせ現在の名前に改称されました。