SysUtils.pas内でFormの描画を待つには？

ミチ＝シルベ 2005-11-30 05:25:32 No: 18938

SysUtils.pasやClasses.pasのファイルの中に
Application.ProcessMessage;
を書き込むことは可能でしょうか？

usesの中にFormsを入れてみたのですが循環参照になってしまいました。

フォームの描画待ちをしたいのですが、
SysUtilsの中にあるTrimのwhileのループで使用したいのですが、
良い案などがあればお教えください。

お名前(ペンネーム可) 2005-11-30 07:30:32 No: 18939

OnCreateの中にループ作ったりではだめなのですか？

地獄の魔人 2005-11-30 18:49:53 No: 18940

基本のコントロール変えてどないするっちゅうんや
マニュアル読んでみぃ！
特殊なもん作るんやったら
TCustumForm, TForm から派生させて
自分で作らんかい！

foo 2005-12-03 02:19:27 No: 18941

ソース持ってるなら単にUnit1にソースをコピーペーストして改造すればいいと思います。

function MyTrim(const S: WideString): WideString;
...
begin
while (I <= L) and (S[I] <= ' ') do begin Inc(I); Application.ProcessMessages; end;
...
end;