掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
進行状況を表示したいのです (ID：26542)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
CreateMessageDlgを使って表示させればいいんじゃないでしょうか。 with CreateMessageDialog('・・の処理中です しばらくお待ちください', mtCustom, []) do begin try BorderIcons := []; Show; // 時間の掛かる処理 Close; finally Release; end; end; 但しこれだとShowを呼び出した後、即「時間の掛かる処理」に入るので文字が表示されません。 そこで強引に with CreateMessageDialog('・・の処理中です しばらくお待ちください', mtCustom, []) do begin try BorderIcons := []; Show; (Components[0] as TLabel).Canvas.Brush.Color := (Components[0] as TLabel).Color; (Components[0] as TLabel).Canvas.TextOut(0,0,'・・の処理中です しばらくお待ちください'); // 時間の掛かる処理 Close; finally Release; end; end; こうすれば問題なく表示されると思います。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.