마우스를 움직일 때 패널을 표시하는 방법은 무엇입니까? 델파이

Question

마우스를 해당 위치로 움직일 때 패널에있는 모든 항목으로 패널을 표시하려면 어떻게합니까?

내가 다시 움직이면 다시 페이드 아웃됩니까?

표시 될 때 문제가 발생하지 않습니다 (페이드 아웃 제외). onmouseleaves를 사용하여이 작업을 수행 할 수 있습니다.

하지만 보이지 않는데 어떻게 보이게 할 수 있습니까?

는

Answer 1

thankssss 다른 (빈) 패널의 패널을 넣습니다. 빈 패널 위에 마우스를 움직이면 "마법"패널이 나타나게하십시오.

---

편집자는 OP에 WebBrowser를 통해 Panel이 있다는 것을 알았 기 때문에 편집되었습니다. 더미/빈 패널을 배치하는 내 솔루션이 더 이상 작동하지 않습니다. WebBrowser로 이동하는 마우스 메시지를 방해하는 것도 좋은 생각이 아니므로이 문제를 해결할 수있는 간단한 방법이 있습니다. TTimer를 사용하여 간격을 "100"으로 설정하고 마우스 좌표를 풀링합니다. 당신이 당신의 패널에 표시됩니다 면적이있는 경우

procedure TForm25.Timer1Timer(Sender: TObject); 
var PR: TRect; // Panel Rect (in screen coordinates) 
    CP: TPoint; // Cursor Position (always in screen coordinates) 
begin 
    // Get the panel's coordinates and convert them to Screen coordinates. 
    PR.TopLeft := Panel1.ClientToScreen(Panel1.ClientRect.TopLeft); 
    PR.BottomRight := Panel1.ClientToScreen(Panel1.ClientRect.BottomRight); 
    // Get the mouse cursor position 
    CP := Mouse.CursorPos; 
    // Is the cursor over the panel? 
    if (CP.X >= PR.Left) and (CP.X <= PR.Right) and (CP.Y >= PR.Top) and (CP.Y <= PR.Bottom) then 
    begin 
     // Panel should be made visible 
     Panel1.Visible := True; 
    end 
    else 
    begin 
     // Panel should be hidden 
     Panel1.Visible := False; 
    end; 
end; 

Answer 2

, 당신은 기본 양식이나 부모 패널 마우스 이동 이벤트를 캡처하고 보이지 않는 패널에 나타납니다 경계 내에 확인할 수 있습니다.

예 : (의사 코드)

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, 
    Y: Integer); 
begin 
    if ((X > MyPanel.Left) and (Y > MyPanel.Top) and (X < mypanel.right) and 
    (Y < mypanel.bottom)) then 
    begin 
     mypanel.visible := true; 
    end; 
end;