Form - TPanel (Disabled) -> WM_LBUTTONDOWN

[himitsu]

Einfach ein transparentes Control über das deaktivierte Control legen.

[Gruber_Hans_12345]

Hmmm kacke, das mit dem transparenten Panel klang gut, aber leider auch nicht so das ich es verwenden kann ...

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


Das ganze ist im moment so

Es handelt sich um ein Form, wo man normal arbeiten soll, mit einem klick ausserhalb wird das Hauptpanel (wo alle control draufliegen) deaktiviert, und man kann nun mit der maus über die controlls fahren, und wenn man draufklickt, werden infos zu diesem kontroll angezeigt

[dataspider]

Zitat von Gruber_Hans_12345:

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