Tchart컴포너트를 올려놓고.....차트의 일부분을 눌렀을때 그점에서 HintWindow가 생기도록 프로그램을짜고 싶습니다...
다음과 같은 코드는 모니터의 좌측상단에 맞춰서 HintWindow가 나타납니다....
그 콘트롤의 좌표를 기준으로 나오게 하려면 다음의 코드를 어떻게 바꾸어 주어야 하나여..
감사합니다....^^
procedure TDockableForm.Chart1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
hintWindow := THintWindow.Create(Self);
Rect.Left := X;
Rect.Top := Y;
Rect.Right := Rect.Left + 100;
Rect.Bottom := Rect.Top + 100;
hintWindow.ActivateHint(Rect, 'Hint window');
end;
ClientToScreen메소드를 이용해서 전역좌표로 바꾸어보세요...
hintWindow := THintWindow.Create(Self);
Rect.Left := X;
Rect.Top := Y;
Rect.Right := Rect.Left + 100;
Rect.Bottom := Rect.Top + 100;
Rect.TopLeft := Chart1.ClientToScreen(Rect.TopLeft);
Rect.BottomRight := Chart1.ClientToScreen(Rect.BottomRight);
hintWindow.ActivateHint(Rect, 'Hint window');
^^ 항상 즐코하세요...