TEditフォーカスとキャレット

Question

私は2つのTEditコントロールを持っています。 edit1からタブアウトすると、 edit2がフォーカスを受け取ります。

procedure TForm1.Edit1Exit(Sender: TObject); 
begin 
    edit2.Enabled := false; 
    edit2.Enabled := true; 
    edit2.setfocus; 
end; 

EDIT2にフォーカスがある：EDIT1 の私のフォーカス喪失時のイベントで、私は次のコードを持っています。しかし、そこにはキャレットはありません。 入力を開始することはできますが、わかりにくいので、コントロールにフォーカスがある が混乱しています。

いくつかのメッセージの原因となっている有効なプロパティ が正しく発射されていませんか？たとえば、edit2のOnEnterイベント がトリガーされていません。

これはまったく問題がなければ、D2006にあります。

返信いただきありがとうございます。私はあなたが無効理由を理解してedit2を有効にしていますが、これを行わない

Answer 1

：

procedure TForm1.Edit1Exit(Sender: TObject); 
begin 
    edit2.Enabled := false; 
    edit2.Enabled := true; 
    edit2.setfocus; 
    PostMessage(edit2.Handle, WM_SETFOCUS, 0, 0); 
end; 

ところで、私はアンドレアスRejbrandに同意します。

Answer 2

私は真剣にあなたが何か悪い方法でやっていると思っています。最良の解決策は、ほとんどの場合再設計です。フォーカスを受けている間は、コントロールを無効にしてから有効にする必要はありません。

Answer 3

edit2を無効にしてから有効にするまでのコードはたくさんあります。前のアクティブコントロールのフォーカス喪失時のイベントハンドラのコードの多くを持つ

ないは、次のアクティブコントロールを無効にする必要がありません。そのコードはが実行され、次のアクティブなコントロールがキャレットを表示し、ユーザー入力を受け取ることができます。新しいスレッドを開始するか、Application.ProcessMessagesを使用するなどの方法で実行を渡すことはしないでください。

Screen.Cursor〜crHourGlassに設定すると、次のアクティブコントロールがまだ準備されていないことがユーザーにわかります。

Answer 4

OnActive for MainFormが別のフォームをアクティブにするときに問題が見つかりました。

TMainForm.OnActivate; 
begin 
ChildForm.ShowModal; 
end; 

コントロールフォーカスは設定されていますが機能しません。私の周りの仕事はPostMessage（ハンドル、WM_SETFOCUS、0、0）を送信していた。フォームハンドルに移動します。

procedure TChildForm.FocusControl(AWinControl: TWinControl); 
begin 
    try 
    // http://stackoverflow.com/questions/7305296/tedit-focus-caret 
    PostMessage(Handle, WM_SETFOCUS, 0, 0); 
    PostMessage(AWinControl.Handle, WM_SETFOCUS, 0, 0); 
    if AWinControl.CanFocus then 
     AWinControl.SetFocus; 
    except 
    on E: Exception do 
    begin 
     Error(Self, E); 
    end; 
    end; 
end;