Q&A

  • 델파이에서 처럼..
델파이에서 처럼 컴포넌트를 판넬위에 여러개 생성시킬수 있는 즉 델파이와 비슷한 툴을 만들고 싶습니다.그런데 델파이에서는 판넬을 여러개 겹쳐서 놓으면 놓인 순서대로 order가 있는데(컴포넌트 2개 겹쳐 생성-> 먼저 생성한 컴포넌트를 움직여두 항상 나중에 생성한 컴포넌트 밑에 있지요..)

저두 그 기능을 구현하구 싶습니다.

차트 컴포넌트에염..

그리구 움직일땐 이이벤트를 사용하구여..

근데 이렇게 움직이면 여러개의 차트가 있을때 움직인 차트가 밑에 있다가두 움직이구 나면 앞으로 나와 버리는데 이유를 잘 몰겠떠염..



꼬옥 답변 부탁드려염..ㅠ.ㅠ



procedure TfrmChartSpace.ChaChartMouseDown(Sender: TObject;

Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

const

SC_DragMove = $F012; { a magic number }

begin

ChartName := (Sender as TChaChart).Name;

if ssLeft in Shift then begin

ReleaseCapture;

(sender as TWinControl).perform(WM_SysCommand, SC_DragMove, 0);

end ;

end;

이 게시물을
1  COMMENTS
  • Profile
    구창민 • 2000.10.11 07:11
    Cha wrote:

    > 델파이에서 처럼 컴포넌트를 판넬위에 여러개 생성시킬수 있는 즉 델파이와 비슷한 툴을 만들고 싶습니다.그런데 델파이에서는 판넬을 여러개 겹쳐서 놓으면 놓인 순서대로 order가 있는데(컴포넌트 2개 겹쳐 생성-> 먼저 생성한 컴포넌트를 움직여두 항상 나중에 생성한 컴포넌트 밑에 있지요..)

    > 저두 그 기능을 구현하구 싶습니다.

    > 차트 컴포넌트에염..

    > 그리구 움직일땐 이이벤트를 사용하구여..

    > 근데 이렇게 움직이면 여러개의 차트가 있을때 움직인 차트가 밑에 있다가두 움직이구 나면 앞으로 나와 버리는데 이유를 잘 몰겠떠염..

    >

    > 꼬옥 답변 부탁드려염..ㅠ.ㅠ

    >

    > procedure TfrmChartSpace.ChaChartMouseDown(Sender: TObject;

    > Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

    > const

    > SC_DragMove = $F012; { a magic number }

    > begin

    > ChartName := (Sender as TChaChart).Name;

    > if ssLeft in Shift then begin

    > ReleaseCapture;

    > (sender as TWinControl).perform(WM_SysCommand, SC_DragMove, 0);

    > end ;

    > end;





    델파이코리아(www.delphikorea.com)의 자유게시판과 자료실로 가 보시면



    민성기 님과 양병규님이 만드신 델파이의 IE와 흡사하게 구현해 놓은



    소스가 있습니다.



    찾아보시면 많은 도움이 되식거라 생각합니다.



    그럼~ 즐거운 프로그래밍 하시길~
←First Page
2195 2196 2197 2198 2199 2200 2201 2202 2203 2204
Last Page→
한델 로그인 하기