Form - TPanel (Disabled) -> WM_LBUTTONDOWN

[dataspider]

Zitat:

Zitat von Gruber_Hans_12345 (Beitrag 1100573)

Nun bekomme ich zwar den Klick mit, aber ich kann nicht mehr anfragen über welchen Kontroll sich die Maus befindet

Delphi-Quellcode:

Var
  AWinControl: TWinControl;
begin
  AWinControl := FindDisabledWinControl(Self, Mouse.CursorPos);
...

function FindDisabledWinControl(AControl: TWinControl; Pos: TPoint): TWinControl;
var
  AChildHandle: HWND;
  APrevChildHandle: HWND;
  APos: TPoint;
begin
  Result := nil;
  AChildHandle := 0;
  APrevChildHandle := AControl.Handle;
  APos := AControl.ScreenToClient(Pos);
  repeat
    if AChildHandle <> 0 then
      APrevChildHandle := AChildHandle;
    if(Result <> nil) then
      APos := Result.ScreenToClient(Pos);
    AChildHandle := ChildWindowFromPointEx(APrevChildHandle, APos, CWP_ALL);
    Result := FindControl(AChildHandle);
  until (AChildHandle = 0) or (AChildHandle = AControl.Handle) or
        (AChildHandle = APrevChildHandle);
  Result := FindControl(APrevChildHandle);
end;

Frank