TEdit focus & caret

Question

Ho due controlli TEdit. Quando esco da edit1, edit2 riceve lo stato attivo. Sul mio evento Su uscita di Edit1 Ho il seguente codice:

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

Edit2 ha il focus. Tuttavia, non c'è caret in esso. Posso iniziare a digitare, ma è confuso perché non lo so quale controllo ha lo stato attivo.

Io sono più interessato a ciò che è il capovolgimento della proprietà Enabled che sta causando alcuni messaggi di essere non sparare correttamente? Ad esempio, l'evento OnEnter di edit2 non viene attivato.

Questo è su D2006 se è importante.

Grazie per la risposta.

Answer 1

non capisco il motivo per cui disabilitare e abilitare edit2, ma si esegue questa operazione:

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

BTW, sono d'accordo con Andreas Rejbrand.

Answer 2

Sospetto seriamente che tu stia facendo qualcosa in modo negativo, e la soluzione migliore è molto probabilmente una riprogettazione. Non si dovrebbe disabilitare e quindi abilitare un controllo mentre sta ricevendo lo stato attivo.

Answer 3

C'è un sacco di codici tra disabilitare e abilitare edit2.

Avere un sacco di codice nel gestore di eventi Su uscita del precedente controllo attivo non non richiedono di disattivare il controllo successivo attiva. Il codice eseguirà prima che il successivo controllo attivo mostri il cursore e sarà in grado di ricevere l'input dell'utente. Assicurati solo che non passi l'esecuzione con qualcosa come iniziare una nuova discussione o usare Application.ProcessMessages.

Impostare Screen.Cursor a crHourGlass per rendere chiaro all'utente che il prossimo controllo attivo non è ancora pronto.

Answer 4

Trovato un problema quando OnActive per MainForm attiva un altro modulo.

TMainForm.OnActivate; 
begin 
ChildForm.ShowModal; 
end; 

Il fuoco di controllo è impostato ma non funziona. Il lavoro che ho trovato è stato l'invio di PostMessage (Handle, WM_SETFOCUS, 0, 0); al manico del modulo.

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;