Edit1にフォーカスがあるときだけボタンをおせるようにするには

---

Edit1にあるときだけButton1のEnabledをTrueにしたいのですが、どこで設定すればいいでしょうか。
Edit1のOnEntreでButton1のEnabledをTrueにしても、他のところにフォーカスを移動させた時にボタンを押すことができました。

何かほかにやり方があるのでしょうか。

編集    削除

---

OnExitでButton1のEnabledをFalseにすれば？

編集    削除

---

単純に 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;

のようにしてください

編集    削除

---

SpeedButtonとの併用はだめですか？

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
  if ActiveControl = Edit1 then
     showmessage('Edit1');
end;

編集    削除

---

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

←解決時は質問者本人がここをチェックしてください。