Delphi кнопка мыши Координаты

Question

Привет, я»ве 3 панели, состоящие из формы. Я назначил событие click для третьей панели для получения координат.

procedure TformMain.Panel3Click(Sender: TObject); 
var 
    pt : tPoint; 
begin 
    pt := Mouse.CursorPos; 
    ShowMessage('X : ' + IntToStr(pt.X) + ' & Y : ' + IntToStr(pt.Y)); 
end; 

Этот код работает, но я не знаю, как Y координировать. начиная с начала панели 3. Я имею в виду, когда я нажимаю на верх панели панели, это координата должна быть 0.

Спасибо, что проконсультировали.

p.s. : У моей формы есть главное меню, поэтому я попытался вычесть высоту панели1 из pt.y, но я не смог получить высоту главного меню.

Answer 1

Почему бы вам не использовать OnMouseDown event и OnMouseUp event.

Вместо OnClick событие, которое уже предоставить вам X, Y координаты щелчка мыши/выпуска, не говоря уже с информацией, о которой была использована кнопка мыши и состояния специальных клавиш, как Сдвига, CTRL и ALT.

Для лучшего объяснения того, какую информацию предоставляют эти события, проверьте TMouseEvent documentation.

Answer 2

Для преобразования координат использовать ClientToScreen() и ScreenToClient() методы:

procedure TformMain.Panel3Click(Sender: TObject); 
var 
    pt: TPoint; 
begin 
    // Converting from screen coordinates into Sender (that's Panel3) 
    // client area coordinates 
    pt := TPanel(Sender).ScreenToClient(Mouse.CursorPos); 
    ShowMessage('X : ' + IntToStr(pt.X) + ' & Y : ' + IntToStr(pt.Y)); 
end;