処理直前にパネルを完全に表示するには?

解決


CUKKY  2007-07-27 18:58:46  No: 27212

どうも、Delphiを使い始めて2ヶ月の新人です。
今回は皆さんの力を借りたく、質問させて頂きます。

フォームの上にボタンとグリッドとパネルを載せておき、
ボタンを押すとファイルオープンダイアログ表示、
CSVデータを選択して読み込み、グリッドに表示する、といったプログラムです。
その際、CSVデータを読み込む前に「CSV読み込み中」といった文を記入したパネルを表示させたく、

  AsSignFile(CSVFile,OpenDialog1.FileName);
  reset(CSVFile);
  Panel1.Visible := True;
  //以下CSVの読み込み処理

上記のような感じで処理させているのですが、
パネルは表示しますが、パネルに記載された文字が表示する事なく、
CSVの読み込み終わり、パネルがFalseになってしまう、
といった感じになっています。

Panel1の文字を完全に表示してからCSVの読み込み処理をするには、
どういった風にすればよろしいでしょうか??
どうかよろしくお願い致します。

環境  :Delphi5、Celeron1.4G、メモリ256MB


くっきい?  2007-07-27 19:22:48  No: 27213

↓これで貯まったWindowsのメッセージを処理しておけばいいんでないの?Application.ProcessMessages;
//以下CSVの読み込み処理


CUKKY  2007-07-27 19:32:33  No: 27214

すごい!できましたww
まじでありがとうございます(>_<)
昨日半日調べてたのが嘘みたいです・・・。

くっきい?さんありがとうございました!!
ちなみに名前はうちの犬の名前のローマ字読みですw


※返信する前に利用規約をご確認ください。

※Google reCAPTCHA認証からCloudflare Turnstile認証へ変更しました。






  このエントリーをはてなブックマークに追加