Wie kann ich feststellen, auf welchem ​​Monitor sich der Delphi IDE Object Inspector befindet?

Question

Dies ist eine Folge bis How can I get the Delphi IDE's Main Form?, die ich jetzt habe arbeiten.

Ich möchte noch einen Schritt weiter gehen und meinen Designer in das Formular des Objektinspektors stellen, für diejenigen, die das klassische undocked Desktop-Layout verwenden und den Objektinspektor möglicherweise auf einem anderen Bildschirm haben als die Delphi-IDE bilden.

Irgendwelche Ideen, wie ich den Object Inspector in meinem Design-Zeitpaket finde?

Answer 1

sollte diese Arbeit, ob die Eigenschaft Inspektor verankert ist oder nicht, da es zurück zum Hauptformular für angedockten Fall fällt:

function EnumWindowsProc(hwnd: HWND; lParam: LPARAM): Integer; stdcall; 
var 
    ClassName: string; 
    PID: Cardinal; 
begin 
    Result := 1; 
    GetWindowThreadProcessId(hwnd, PID); 
    if PID = GetCurrentProcessId then 
    begin 
    SetLength(ClassName, 64); 
    SetLength(ClassName, GetClassName(hwnd, PChar(ClassName), Length(ClassName))); 
    if ClassName = 'TPropertyInspector' then 
    begin 
     PHandle(lParam)^ := hwnd; 
     Result := 0; 
    end; 
    end; 
end; 

function GetPropertyInspectorMonitor: TMonitor; 
var 
    hPropInsp: HWND; 
begin 
    hPropInsp := 0; 
    EnumWindows(@EnumWindowsProc, LPARAM(@hPropInsp)); 
    if hPropInsp = 0 then 
    hPropInsp := Application.MainFormHandle; 
    Result := Screen.MonitorFromWindow(hPropInsp); 
end;