始めまして。
今年からPBを始めたのですが､今非常に悩んでいます。

シングルラインエディットのLoseFocus処理で
入力内容に関するチェックを行い､
不正データの場合ワーニングのダイアログを表示し､
全処理を中断させたいのです。

    IF IsNumber(This.Text) = FALSE THEN
        intRes = MessageBox (\"ERROR\",\"ERROR\")
        RETURN
    END IF

クリックやTabでのフォーカス移動では、上手く
動作してくれました。

しかし、ウィンドウのKeyイベントに
下記のようなコマンドボタンクリックの
POST処理を書き込みました。

    IF KeyDown(KeyF1!) THEN
        IF cb_start.Enabled = TRUE THEN
            cb_start.PostEvent(Clicked!)
        END IF
    END IF

するとKeyイベントが絶対に走ってしまうのです。
どうにかしてKeyイベントを走らせないように
しようと思い､「LoseFocusが走れば・・・」と、

    IF KeyDown(KeyF1!) THEN
        SetFocus(cb_f1) //FocusのあるオブジェクトのLoseFocusを走らせる。
        IF cb_start.Enabled = TRUE THEN
            cb_start.PostEvent(Clicked!)
        END IF
    END IF

このように書き換えましたが､結果は同じでした。

ない頭をしぼって考えたのが､
「エラー表示した時に、キューに入っている
　その後のイベントが削除できれば･･･」
と言うことでした。

LoseFocus時に､その後にキューに予定されている
イベントを削除するなんてことは出来ないのでしょうか？

Help等も調べて見たのですが､見つけられませんでした。
アドバイス宜しくお願いします。