Làm thế nào tôi có thể biết liệu một điều khiển Delphi hiện có thể nhìn thấy?

Question

Tôi cần một cách để điều khiển tùy chỉnh (xuống từ TCustomControl) để biết liệu nó có hiển thị hay không. Tôi không nói về tài sản .Visible; Tôi có nghĩa là có hay không nó thực sự được hiển thị trên màn hình vào lúc này. Có ai biết cách để làm điều này không?

Answer 1

Một vài năm trước tôi đã có cùng một loại vấn đề đối với Biểu mẫu: Tôi đang tìm cách xác định xem Biểu mẫu có thực sự hiển thị (thậm chí chỉ một phần) cho người dùng hay không.
Đặc biệt khi được cho là hiển thị và Hiển thị là Đúng nhưng cửa sổ thực sự hoàn toàn nằm sau một cửa sổ khác.
Đây là mã, nó có thể được điều chỉnh cho một WinControl ...

{----------------------------------------------------------} 
function IsMyFormCovered(const MyForm: TForm): Boolean; 
var 
    MyRect: TRect; 
    MyRgn, TempRgn: HRGN; 
    RType: Integer; 
    hw: HWND; 
begin 
    MyRect := MyForm.BoundsRect;   // screen coordinates 
    MyRgn := CreateRectRgnIndirect(MyRect); // MyForm not overlapped region 
    hw := GetTopWindow(0);     // currently examined topwindow 
    RType := SIMPLEREGION;     // MyRgn type 

// From topmost window downto MyForm, build the not overlapped portion of MyForm 
    while (hw<>0) and (hw <> MyForm.handle) and (RType <> NULLREGION) do 
    begin 
    // nothing to do if hidden window 
    if IsWindowVisible(hw) then 
    begin 
     GetWindowRect(hw, MyRect); 
     TempRgn := CreateRectRgnIndirect(MyRect);// currently examined window region 
     RType := CombineRgn(MyRgn, MyRgn, TempRgn, RGN_DIFF); // diff intersect 
     DeleteObject(TempRgn); 
    end; {if} 
    if RType <> NULLREGION then // there's a remaining portion 
     hw := GetNextWindow(hw, GW_HWNDNEXT); 
    end; {while} 

    DeleteObject(MyRgn); 
    Result := RType = NULLREGION; 
end; 

function IsMyFormVisible(const MyForm : TForm): Boolean; 
begin 
    Result:= MyForm.visible and 
      isWindowVisible(MyForm.Handle) and 
      not IsMyFormCovered(MyForm); 
end; 

Answer 2

Bạn có thể đính kèm mã vào sự kiện OnPaint không? Điều này được gọi là rất thường xuyên và tôi nghĩ rằng chỉ được gọi khi kiểm soát thực sự sẽ được sơn (ví dụ như có thể nhìn thấy theo cách bạn có ý nghĩa).

Answer 3

Tôi nghĩ đây là những gì TWinControl.Showing dành cho. Tôi không chắc nó đáng tin cậy như thế nào.