掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
フォームに触れなくするカーソルは？ (ID:46302)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
個人的にも興味があったので色々やってそれなりにできました。 下記例では、Form1の全面にPanel1を置き、その上に他のコンポーネントを置いています。 （Form1.Enabledをいじってもカーソルが変化しなかったので・・・何故でしょ？） var OldCursor: TCursor; lw: Longword; begin OldCursor := Screen.Cursor; Screen.Cursor := crHourGlass; Panel1.Enabled := False; //Form1.Enabled := False; //これではカーソルが変化しない try Label1.Caption := '0'; for lw := 0 to 10000 do begin Label1.Caption := IntToStr(StrToInt(Label1.Caption) + 1); Application.ProcessMessages; end; finally Screen.Cursor := OldCursor; Panel1.Enabled := True; //Form1.Enabled := True; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.