掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Edit1にフォーカスがあるときだけボタンをおせるようにするには (ID：35107)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
単純に Exit で False すると Button1 を押す直前に Exit が実行されて Enabled := False になってしまうのでボタンが押せなくなってしまいます。 なので procedure TForm1.Button1Exit(Sender: TObject); begin if ActiveControl <> Button1 then begin Button1.Enabled := False; end end; procedure TForm1.Edit1Exit(Sender: TObject); begin if ActiveControl <> Button1 then begin Button1.Enabled := False; end end; のようにしてください
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.