掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ボタンを2回連続でクリックされた時に1回だけ実行するには？ (ID：1633)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
おかしいですね。こちらで下記のコードで試してみたけど、 Disable中にどれだけクリックしても２度イベントが起きること はなかったですけど。(Win98 + Del6Per) procedure TForm1.Button1Click(Sender: TObject); var i: integer; begin TButton(Sender).Enabled := False; for i := 0 to 20 do begin Sleep(100); Application.ProcessMessages; end; ShowMessage('End!'); TButton(Sender).Enabled := True; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.