Q&A

  • Chart에 대해 다음과 같은 코드를 봐주세여....
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;
2  COMMENTS
  • Profile
    최용일 2002.08.13 00:04
    안녕하세요. 최용일입니다.

    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');

    ^^ 항상 즐코하세요...

  • Profile
    델파이사랑 2002.08.13 00:18
    감사합니다......^^ (냉무)