Làm thế nào để giữ ứng dụng Delphi Responsive trong khi cập nhật GUI?

Question

Câu hỏi này là về việc giữ giao diện GUI trong các tác vụ dài hơn (một vài giây trong hầu hết các trường hợp).

Tôi sử dụng rộng rãi các chủ đề và mẫu nhiệm vụ để thực hiện tác vụ tốn kém trong chuỗi nền. Nhưng những gì về cập nhật GUI mất một thời gian? Ví dụ, điền vào một chuỗi lớn lưới hoặc xem cây? Một chủ đề không giúp được ở đây vì mọi thứ cần phải được đồng bộ với luồng chính.

Tôi biết sự cố của Application.ProcessMessages, nhưng hiện tại nó có vẻ như giải pháp duy nhất để thực hiện cuộc gọi đến ProcessMessages bên trong phương thức cập nhật GUI.

Bất kỳ ý tưởng nào tốt hơn?

Answer 1

IMO nếu bản cập nhật giao diện là nút cổ chai (ngay cả khi BeginUpdate/EndUpdate được sử dụng như @ The_Fox gợi ý) thì đã đến lúc xem xét lại các điều khiển GUI được sử dụng. Các lưới standart, treeview, listboxes không chỉ đơn giản là cắt để xử lý số lượng lớn các mục. Có rất nhiều điều khiển bên thứ ba thực hiện cả miễn phí và thương mại cho mục đích đó.

Để khởi động, hãy xem VirtualTreeview nếu nút cổ chai nằm trong khung lưới, chế độ xem trang hoặc ngữ cảnh hộp danh sách.

Answer 2

Hãy xem ActiveSleep.

Answer 3

Bạn đã thử thành phần AntiFreeze từ Indy chưa?

Answer 4

Có vấn đề gì với Application.ProcessMessages trong trường hợp của bạn? Phương thức Application.ProcessMessages là chính xác cho các trường hợp như vậy. Vấn đề với Application.ProcessMessages là mã như thế này:

repeat 
    Application.ProcessMessages; 
until SomethingHappens; 

Đó là xấu vì nó là tải CPU vô dụng, và cần được thay thế bằng

repeat 
    Application.HandleMessage; 
until SomethingHappens; 

trong đó sản lượng thời gian xử lý để đề khác. Single Application.ProcessMessages các cuộc gọi (không phải trong vòng lặp) là OK.

Answer 5

Khi điền Grids, Lists, DataSets, v.v., hãy gọi BeginUpdate/EndUpdate DisableControls/EnableControls. Điều này sẽ giúp bạn tiết kiệm thời gian. Tôi cũng đã có một thread mà đã làm một số tính toán, nhưng vẫn GUI là chậm, cho đến khi tôi được gọi là DisableControls trên datasets đã được sửa đổi và không nhìn thấy bởi vì các điều khiển trên tabsheet khác.

Ngoài ra, khi cập nhật kiểm soát, có tất cả dữ liệu bạn cần chuẩn bị, vì vậy bạn chỉ cần điền vào danh sách của mình mà không thực hiện các phép tính có thể làm chậm quá trình này.

Answer 6

Nếu bạn chỉ muốn xử lý các thông điệp sơn và không có gì khác: sử dụng sau đây thay vì Application.ProcessMessages:

procedure ProcessPaintMessages; 
var 
    Msg: TMsg; 
    i: Integer; 
begin 
    i := 0; 
    repeat 
    if Windows.PeekMessage(Msg, 0, 0, 0, PM_REMOVE or (QS_PAINT shl 16)) then begin 
     TranslateMessage(Msg); 
     DispatchMessage(Msg); 
    end else Break; 
    Inc(i); 
    until i > 1000; // Breakout if we are in a paint only loop! 
end;