Tập trung vào TEDIT & caret

Question

Tôi có hai điều khiển TEdit. Khi tôi tab ra khỏi edit1, edit2 sẽ nhận được tiêu điểm. Trong sự kiện OnExit của tôi về Edit1 Tôi có mã sau:

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

Edit2 có trọng tâm. Tuy nhiên, không có dấu mũ trong đó. Tôi có thể bắt đầu nhập nhưng khó hiểu vì tôi không biết kiểm soát nào có tiêu điểm.

Tôi quan tâm hơn đến những gì đang xảy ra với việc lật thuộc tính Kích hoạt đã khiến một số thông báo không phải là kích hoạt đúng cách? Ví dụ, sự kiện OnEnter của edit2 không được kích hoạt.

Đây là trên D2006 nếu nó quan trọng.

Cảm ơn bạn đã trả lời.

Answer 1

Tôi không hiểu lý do tại sao bạn vô hiệu hóa và kích hoạt edit2, nhưng bạn làm điều này:

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

BTW, tôi đồng ý với Andreas Rejbrand.

Answer 2

Tôi nghiêm túc nghi ngờ bạn đang làm điều gì đó một cách tồi tệ và giải pháp tốt nhất có nhiều khả năng là thiết kế lại. Bạn không được phép vô hiệu hóa và sau đó kích hoạt một điều khiển trong khi nó đang nhận được tiêu điểm.

Answer 3

Có một loạt các mã giữa tắt và bật chỉnh sửa2.

Có rất nhiều mã trong xử lý sự kiện OnExit của điều khiển hoạt động trước đó không không cần phải vô hiệu hóa việc kiểm soát hoạt động tiếp theo. Mã đó sẽ thực thi trước khi điều khiển hoạt động tiếp theo hiển thị dấu mũ và sẽ có thể nhận dữ liệu nhập của người dùng. Chỉ cần chắc chắn rằng nó không thực hiện vượt qua thực hiện bởi một cái gì đó giống như bắt đầu một chủ đề mới hoặc sử dụng Application.ProcessMessages.

Đặt Screen.Cursor thành crHourGlass để làm cho người dùng biết rằng điều khiển hoạt động tiếp theo chưa sẵn sàng.

Answer 4

Tìm thấy sự cố khi OnActive cho MainForm kích hoạt một biểu mẫu khác.

TMainForm.OnActivate; 
begin 
ChildForm.ShowModal; 
end; 

Tiêu cự điều khiển được đặt nhưng không hoạt động. Công việc xung quanh tôi thấy là gửi PostMessage (Handle, WM_SETFOCUS, 0, 0); để xử lý biểu mẫu.

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;