アクションが完了したら変数を設定するには（Delphiで）？

Question

私は何とかデルファイ2009年にこれを実装する必要があります。その後、私は一つのことをやりたい、ユーザーの非常に最後のアクションは、ボタン1をクリックした場合、ユーザーがボタン2をクリックする

が、ユーザーの非常に最後のアクションであれば私は別のことをしたい。

もちろん、私は、ブール変数の設定：UserClickedOnButton1を、ボタン1がクリックされたときにtrueに設定すると、私はボタンのOnButtonClickイベントでその変数をテスト2.

私の質問は、私が設定しない方法ですボタン2をクリックする前にユーザーが何か他の操作を行ったときは、それを偽にします（マウスを押す、キーを押す、矢印キー、別のプログラムに切り替えるなど）。

...これを行う簡単な方法は、私が見落としているところです。

Answer 1

以下のコードは動作しているようですが（D7）、具体的な状況を確認してください。

type 
    TButton = class(StdCtrls.TButton) 
    private 
    FClickedLast: Boolean; 
    FNextButton: TButton; 
    protected 
    procedure WndProc(var Message: TMessage); override; 
    public 
    procedure Click; override; 
    property ClickedLast: Boolean read FClickedLast write FClickedLast; 
    property NextButton: TButton write FNextButton; 
    end; 

    TForm1 = class(TForm) 

... 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
    Button1.NextButton := Button2; 
end; 

procedure TForm1.Button2Click(Sender: TObject); 
begin 
    if Button1.ClickedLast then 
    Caption := Caption + ' +' 
    else 
    Caption := Caption + ' -'; 
    Button1.ClickedLast := False; 
end; 

{ TButton } 

procedure TButton.Click; 
begin 
    inherited Click; 
    if (FNextButton <> nil) and Focused then 
    FClickedLast := True; 
end; 

procedure TButton.WndProc(var Message: TMessage); 
begin 
    if (FNextButton <> nil) and not (csDestroying in ComponentState) then 
    case Message.Msg of 
     CM_CANCELMODE, 
     WM_KEYFIRST..WM_KEYLAST: 
     FClickedLast := False; 
     WM_KILLFOCUS: 
     if TWMKillFocus(Message).FocusedWnd <> FNextButton.Handle then 
      FClickedLast := False; 
    end; 
    inherited WndProc(Message); 
end; 

説明：

• CM_CANCELMODEがどこにフォーカスを変更する際に得られていないマウスクリックを処理し、
• WM_KEY *は、すべてのキーイベントを処理するだけでなく、他のアプリケーション（WM_SYSKEYDOWNがあり、そうでなければWM_KILLFOCUSに切り替えます処理します）、
• WM_KILLFOCUSは他のすべてを処理します。

Answer 2

私は思っています。ロジックを使用してすべてのイベント（または少なくともすべての可能性のある不要イベント）を追跡して追跡しない限り、実際には可能ではありません。

キー押し（Tab？）は、次のボタンに移動してクリックすることができます。マウスダウンのイベントは、それが2番目のボタンにある場合は明らかに良好です。それ以外の場合はそうではありません。アプリケーションのすべてのkeypress/mousedown/lostfocusイベントを遅くするためにロジック全体を実行する前に、「最初のボタンがクリックされた」かどうかをチェックしたいと思うでしょう。

アイデアはタイマーを使用することですが、ユーザーが他のことを「すばやく」するのを妨げるものではありません。

Edt1：「違法」であるアクションが実際に何かをしている場合は、最初のボタンのlostfocusイベントが開始される可能性がありますか？