フォーカスが一つ前のコントロールを取得するには
解決お世話になっております。
フォーカスがひとつ前のコントロールを取得する方法はありますか。
タブ順での取得はできそうなのですが、マウスクリックにより、
タブ順でないフォーカス移動が発生した場合の移動前のコントロールを取得したいと考えています。
現在はENTER、EXITイベントでコントロール名を保持する方法で行っていますが、いまいちスマートではありません。^^
どなたかご存知の方が居られましたらよろしくお願いいたします。
TScreen.OnActiveControlChange
TScreen.OnActiveFormChange
こっちも使うかな？
返信ありがとうございます。
ん！さんに説明いただいたのは、Enter、ExitではなくOnActiveControlChangeで
フォーカスが移る度に、コントロール名を保持する方法と解釈してよろしいでしょうか。
だとすると、少し説明不足でした、再度質問させてください。
今考えているのは、マスタ参照が発生するEditが３つあるとし、
参照用のボタンが１つあるとします。
エディットにフォーカスがあるときに、参照用ボタンをクリックすると、フォーカスが参照ボタンに移ってしまいます。
この場合、どのエディットで参照ボタンが押されたか知りたいと考えています。
方法としては、Enter、Exit、ん！さんに説明いただいた、ActiveControlChangeで変数にコントロール名を設定する方法は
考え付いたのですが、コントロール名を保持せずに前にフォーカスがあったコントロールを取得する方法はないものかと質問させていただきました。
以上よろしくお願いいたします。（ないかな．．．^^）
> どのエディットで参照ボタンが押されたか
参照ボタンのOnClickイベントのSender
あ、ごめんなさい。参照ボタンは１つなんですね。
ん〜、ないでしょう。
TScreenは、FLastActiveControlという、直前にフォーカスがあったコントロールを保持する変数を持っていますが、OnActiveControlChangeイベントを発生されるかさせないかの判定程度にしか使っていません。
したがって参照不可。
Screen.ActiveControl is TEdit = True のとき、
直前のEdit として保存しておくのがよろしいかと。
また、コントロール名じゃなくTWinControl型の変数を使う。
Edit限定なら、TEdit型の変数にして、キャストして代入してしまうと楽かな。
参照ボタンをTSpeedButtonにしたら？
>参照ボタンをTSpeedButtonにしたら？
イイ！
TSpeedButtonには、フォーカスが移動しないから、Editにフォーカスを残したままボタンを押すことができる。
目からウロコなアイディアです。
返事が遅くなってしまいました。
スピードボタンとは．．．なかなか私も目からうろこでした。
しかしフォーカスが移らないのも問題なので、（なんだか矛盾してますが^^）
やはり直前のコントロールを保持しておく方法でいこうと思います。
みなさんには返信ありがとうございました。
| ツイート |  |