掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
API関数の処理の終了を知るには？ (ID：7189)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じ type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private 宣言 } public Flag:Boolean; procedure WMPaint(var Msg:TWMPaint);message WM_PAINT; end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin Flag := true; Memo1.Lines.Add('Before'); InvalidateRect(Handle,nil,true); Memo1.Lines.Add('After'); end; procedure TForm1.WMPaint(var Msg: TWMPaint); begin inherited; if Flag then begin Flag := false; Memo1.Lines.Add('Completed!'); end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.