한국 델파이 개발자 모임 - Teechart 에서 드레그 앤 드롭시, 커서 바꾸는 방법?

Teechart 에서 드레그 앤 드롭시, 커서 바꾸는 방법?

티차트로 드레그 앤 드롭을 하려 합니다.

티차트위로 드레그 했을때, 티차트의 아이콘을 드레그 아이콘으로 바꾸었으면

하는데, 일반적인 방법으로는 잘 되질 않습니다.

어떻게 해야 할지요? 답변 부탁드립니다.

이 게시물을

4 COMMENTS

홍성락 • 2001.11.20 22:16

항시 wrote:

>

> 티차트로 드레그 앤 드롭을 하려 합니다.

>

> 티차트위로 드레그 했을때, 티차트의 아이콘을 드레그 아이콘으로 바꾸었으면

>

> 하는데, 일반적인 방법으로는 잘 되질 않습니다.

>

> 어떻게 해야 할지요? 답변 부탁드립니다.

///////////////////////////////////////////////////////////////////////

아래처럼해도 되는데요

procedure TForm1.Chart1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if Button = mbRight then

screen.Cursor :=crHandPoint

else if Button = mbLeft then

screen.Cursor :=crSizeAll;

end;

procedure TForm1.Chart1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

screen.Cursor :=crdefault;

end;
- 0
- 0
- 삭제
- 수정
- 댓글
항시 • 2001.11.21 03:39

먼저 질문에 대해, 답변해 주셔서, 감사드립니다. ^^;

저두 역시 말씀해주신 방법을 사용해 보았지만, 제대로 잘 되지 않았습니다.

저의 문제를 좀더 부연하여 설명드리면,

MDI 폼에서 트리뷰에 있는 노드를 드레그해서, 티차트의 위에 드롭시키려고 합니다.

일반적으로는 드레그와 드롭시, OnDropOver Event 에서 Accept 변수를 이용하면,

커서가 crNoDrop 이나, crDrag 로 변환되는데, 티차트에서는 커서의 변환이 생각처럼

되질 않습니다.

다른 방법이 없을지요?

홍성락 wrote:

> 항시 wrote:

> >

> > 티차트로 드레그 앤 드롭을 하려 합니다.

> >

> > 티차트위로 드레그 했을때, 티차트의 아이콘을 드레그 아이콘으로 바꾸었으면

> >

> > 하는데, 일반적인 방법으로는 잘 되질 않습니다.

> >

> > 어떻게 해야 할지요? 답변 부탁드립니다.

> ///////////////////////////////////////////////////////////////////////

> 아래처럼해도 되는데요

> procedure TForm1.Chart1MouseDown(Sender: TObject; Button: TMouseButton;

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

> begin

> if Button = mbRight then

> screen.Cursor :=crHandPoint

> else if Button = mbLeft then

> screen.Cursor :=crSizeAll;

> end;

>

> procedure TForm1.Chart1MouseUp(Sender: TObject; Button: TMouseButton;

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

> begin

> screen.Cursor :=crdefault;

> end;
- 0
- 0
- 삭제
- 수정
- 댓글
홍성락 • 2001.11.21 05:21

항시 wrote:

>

> 먼저 질문에 대해, 답변해 주셔서, 감사드립니다. ^^;

>

> 저두 역시 말씀해주신 방법을 사용해 보았지만, 제대로 잘 되지 않았습니다.

>

>

> 저의 문제를 좀더 부연하여 설명드리면,

>

> MDI 폼에서 트리뷰에 있는 노드를 드레그해서, 티차트의 위에 드롭시키려고 합니다.

>

> 일반적으로는 드레그와 드롭시, OnDropOver Event 에서 Accept 변수를 이용하면,

>

> 커서가 crNoDrop 이나, crDrag 로 변환되는데, 티차트에서는 커서의 변환이 생각처럼

>

> 되질 않습니다.

>

> 다른 방법이 없을지요?

>

> 홍성락 wrote:

> > 항시 wrote:

> > >

> > > 티차트로 드레그 앤 드롭을 하려 합니다.

> > >

> > > 티차트위로 드레그 했을때, 티차트의 아이콘을 드레그 아이콘으로 바꾸었으면

> > >

> > > 하는데, 일반적인 방법으로는 잘 되질 않습니다.

> > >

> > > 어떻게 해야 할지요? 답변 부탁드립니다.

> > ///////////////////////////////////////////////////////////////////////

> > 아래처럼해도 되는데요

> > procedure TForm1.Chart1MouseDown(Sender: TObject; Button: TMouseButton;

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

> > begin

> > if Button = mbRight then

> > screen.Cursor :=crHandPoint

> > else if Button = mbLeft then

> > screen.Cursor :=crSizeAll;

> > end;

> >

> > procedure TForm1.Chart1MouseUp(Sender: TObject; Button: TMouseButton;

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

> > begin

> > screen.Cursor :=crdefault;

> > end;

//////////////////////////////////////////////////////////////////////////

아 다른 컴포넌트에서 Drag하시려구 하셨군요.

아래는 메세지써서 해본건데 참조해보세요

----------------------------------------------------------------------------

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

ExtCtrls, TeeProcs, TeEngine, Chart, ComCtrls;

type

TForm1 = class(TForm)

Chart1: TChart;

TreeView1: TTreeView;

procedure FormShow(Sender: TObject);

procedure TreeView1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure TreeView1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

procedure Chart1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

private

{ Private declarations }

DataMoving : Boolean;

procedure WndProc(var Message: TMessage); override;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

////////////////////////////////////////////////////////////////////////////////

procedure TForm1.FormShow(Sender: TObject);

begin

DataMoving := False;

end;

////////////////////////////////////////////////////////////////////////////////

procedure TForm1.WndProc(var Message: TMessage);

begin

if (Message.LParam = Longint(Chart1))or(Message.LParam = Longint(TreeView1)) then begin

if (Message.Msg = CM_MOUSEENTER)and(DataMoving) then

screen.Cursor := crDrag

else if (Message.Msg = CM_MOUSELEAVE)and(DataMoving) then

screen.Cursor := crNoDrop;

end;

if ((Message.Msg = WM_LBUTTONUP)or(Message.Msg = WM_RBUTTONUP))and

(DataMoving) then begin

screen.Cursor := crdefault;

DataMoving := False;

end;

inherited WndProc(Message);

end;

////////////////////////////////////////////////////////////////////////////////

procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

if TreeView1.Selected <> nil then begin

DataMoving := True;

screen.Cursor := crDrag;

end;

end;

procedure TForm1.TreeView1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

DataMoving := False;

screen.Cursor := crdefault;

end;

procedure TForm1.Chart1MouseUp(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

begin

DataMoving := False;

screen.Cursor := crdefault;

end;

end.
- 0
- 0
- 삭제
- 수정
- 댓글
항시 • 2001.11.21 20:53

감사합니다. 많은 도움이 되었습니다. ^^;

홍성락 wrote:

> 항시 wrote:

> >

> > 먼저 질문에 대해, 답변해 주셔서, 감사드립니다. ^^;

> >

> > 저두 역시 말씀해주신 방법을 사용해 보았지만, 제대로 잘 되지 않았습니다.

> >

> >

> > 저의 문제를 좀더 부연하여 설명드리면,

> >

> > MDI 폼에서 트리뷰에 있는 노드를 드레그해서, 티차트의 위에 드롭시키려고 합니다.

> >

> > 일반적으로는 드레그와 드롭시, OnDropOver Event 에서 Accept 변수를 이용하면,

> >

> > 커서가 crNoDrop 이나, crDrag 로 변환되는데, 티차트에서는 커서의 변환이 생각처럼

> >

> > 되질 않습니다.

> >

> > 다른 방법이 없을지요?

> >

> > 홍성락 wrote:

> > > 항시 wrote:

> > > >

> > > > 티차트로 드레그 앤 드롭을 하려 합니다.

> > > >

> > > > 티차트위로 드레그 했을때, 티차트의 아이콘을 드레그 아이콘으로 바꾸었으면

> > > >

> > > > 하는데, 일반적인 방법으로는 잘 되질 않습니다.

> > > >

> > > > 어떻게 해야 할지요? 답변 부탁드립니다.

> > > ///////////////////////////////////////////////////////////////////////

> > > 아래처럼해도 되는데요

> > > procedure TForm1.Chart1MouseDown(Sender: TObject; Button: TMouseButton;

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

> > > begin

> > > if Button = mbRight then

> > > screen.Cursor :=crHandPoint

> > > else if Button = mbLeft then

> > > screen.Cursor :=crSizeAll;

> > > end;

> > >

> > > procedure TForm1.Chart1MouseUp(Sender: TObject; Button: TMouseButton;

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

> > > begin

> > > screen.Cursor :=crdefault;

> > > end;

> //////////////////////////////////////////////////////////////////////////

> 아 다른 컴포넌트에서 Drag하시려구 하셨군요.

> 아래는 메세지써서 해본건데 참조해보세요

> ----------------------------------------------------------------------------

> unit Unit1;

>

> interface

>

> uses

> Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

> ExtCtrls, TeeProcs, TeEngine, Chart, ComCtrls;

>

> type

> TForm1 = class(TForm)

> Chart1: TChart;

> TreeView1: TTreeView;

> procedure FormShow(Sender: TObject);

> procedure TreeView1MouseUp(Sender: TObject; Button: TMouseButton;

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

> procedure TreeView1MouseDown(Sender: TObject; Button: TMouseButton;

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

> procedure Chart1MouseUp(Sender: TObject; Button: TMouseButton;

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

>

> private

> { Private declarations }

> DataMoving : Boolean;

> procedure WndProc(var Message: TMessage); override;

>

> public

> { Public declarations }

> end;

>

> var

> Form1: TForm1;

>

> implementation

>

> {$R *.DFM}

> ////////////////////////////////////////////////////////////////////////////////

> procedure TForm1.FormShow(Sender: TObject);

> begin

> DataMoving := False;

> end;

> ////////////////////////////////////////////////////////////////////////////////

> procedure TForm1.WndProc(var Message: TMessage);

> begin

> if (Message.LParam = Longint(Chart1))or(Message.LParam = Longint(TreeView1)) then begin

> if (Message.Msg = CM_MOUSEENTER)and(DataMoving) then

> screen.Cursor := crDrag

> else if (Message.Msg = CM_MOUSELEAVE)and(DataMoving) then

> screen.Cursor := crNoDrop;

> end;

> if ((Message.Msg = WM_LBUTTONUP)or(Message.Msg = WM_RBUTTONUP))and

> (DataMoving) then begin

> screen.Cursor := crdefault;

> DataMoving := False;

> end;

> inherited WndProc(Message);

> end;

> ////////////////////////////////////////////////////////////////////////////////

>

>

> procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton;

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

> begin

> if TreeView1.Selected <> nil then begin

> DataMoving := True;

> screen.Cursor := crDrag;

> end;

> end;

> procedure TForm1.TreeView1MouseUp(Sender: TObject; Button: TMouseButton;

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

> begin

> DataMoving := False;

> screen.Cursor := crdefault;

> end;

>

> procedure TForm1.Chart1MouseUp(Sender: TObject; Button: TMouseButton;

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

> begin

> DataMoving := False;

> screen.Cursor := crdefault;

> end;

>

> end.

>
- 0
- 0
- 삭제
- 수정
- 댓글

(NOTICE) You must be logged in to comment on this post.

- 이상림
- •
- 2001.11.21 01:34
- 1 COMMENTS
- /
- 0 LIKES
윈도우2000 종료시키기
- 이경문
  
  •
  
  2001.11.21 04:47
  
  도움이 될려나 모르겠네요. CPP로 작성된 건데... ----------- reboot.h ----------- #ifndef __REBOOT_H...
- 궁금이
- 2001.11.24 02:11
- 0 COMMENTS
- /
- 0 LIKES
질문) 델파이5에서 NMHTTP1.Post(a,b)는 안되나요??
- 코난
- 2001.11.21 01:49
- 0 COMMENTS
- /
- 0 LIKES
Class TRxCalculator not found
- 급한 사람..^^;
- •
- 2001.11.20 23:50
- 2 COMMENTS
- /
- 0 LIKES
SQL 문을 직접 코딩할때와 TString에서 쓸때..
- 홍성락
  
  •
  
  2001.11.21 01:12
  
  급한 사람..^^; wrote: > 안녕하십니까..한달동안 군대갔다온 급한 사람입니다....(누구도 신경안쓰겠지만...
- 급한 사람..^^;
  
  •
  
  2001.11.21 01:31
  
  감사합니다.. 그래도 알아들으시고 답변을 주시네요.. 덕분에 많은 도움 되었습니다.. 행복하십시요.....
- 이재형
- •
- 2001.11.20 23:36
- 1 COMMENTS
- /
- 0 LIKES
[긴급]Web Server Application 실행후 WebModule이 안나타납니다.
- 알려주셔요
  
  •
  
  2001.11.21 02:03
  
  Web Server Application 종류에 따라 서버쪽에서 미리 띄워야하는 프로그램이 있습니다. 당연히 델파...
- 草
- •
- 2001.11.20 23:24
- 1 COMMENTS
- /
- 0 LIKES
사용중인 폴더를 해제하는 방법은??
- 홍성락
  
  •
  
  2001.11.21 00:33
  
  草 wrote: > A라는 폼에서 TTable을 이용하여 어떤 테이블을 건들였는데여.. > > 여기서.. TTable의 Da...
- 델초보
- •
- 2001.11.20 22:58
- 6 COMMENTS
- /
- 0 LIKES
홍성락님..과 고수님들(분명히 서버에서 화일을 지웠는데....????)
- 홍성락
  
  •
  
  2001.11.21 00:10
- 델초보
  
  •
  
  2001.11.21 00:22
- 홍성락
  
  •
  
  2001.11.21 00:42
- 델초보
  
  •
  
  2001.11.21 01:30
- 홍성락
  
  •
  
  2001.11.21 02:20
- 델초보
  
  •
  
  2001.11.21 03:42
- 성필
- 2001.11.20 22:33
- 0 COMMENTS
- /
- 0 LIKES
특정 프로그램 설치못하게 할려면..?
- 초짜 올림
- •
- 2001.11.20 22:21
- 7 COMMENTS
- /
- 0 LIKES
시간 체크 하려고 하는데...
- 꼭 배우고 싶은 사람
  
  •
  
  2001.11.21 04:30
  
  다시한번 와~. 그리 간단한걸 전 DecodTime(...); 로 했었는데. 여기서 제가 쓰려던건 분만 비교해서 ...
- Bulduki
  
  •
  
  2001.11.20 22:49
  
  hh.text := FormatDateTime('hh', now()); // 시 mm.text := FormatDateTime('mm', now()); // 분 dd.tex...
- 초짜 올림
  
  •
  
  2001.11.21 05:17
  
  님이 알려주신대로 아래와 같이 했더니 안되더군요. procedure TForm1.Timer1Timer(Sender: TObject); ...
- signalworks
  
  •
  
  2001.11.24 04:45
  
  우연히 들려 답변드립니다. 'mm'표현은 월을 의미하고 분으로 표시하려면 'nn'을 쓰셔야 합니다. 즐...
- 초짜 올림
  
  •
  
  2001.11.24 10:21
  
  고맙습니다. 진짜루요. 아직은 초짜라 질문에 답변해준 적은 없지만 낭중에 실력 쌓이면 제가 아는 한에서 ...
- webking
  
  •
  
  2001.11.20 22:34
  
  초짜 올림 wrote: > 안녕하세요 델파이 초본데요.... > > TimeToStr(Now) 써서 현재 시스템 시간을 ...
- 조수석
  
  •
  
  2009.09.17 20:09
  
  아래와 같이 해보세요.. showmessage(formatDateTime('HH:NN:SS AM/PM',now));
- 초보자
- •
- 2001.11.20 21:41
- 1 COMMENTS
- /
- 0 LIKES
MDI폼에 관한 질문입니다. 생각대로 안되네요.
- 홍성락
  
  •
  
  2001.11.20 22:00
  
  초보자 wrote: > 우선 질문은 > MDI폼에서 차일드폼을 보여주고 차일드폼에서 입력받은 텍스트를 가지고 ...
- 김근중
- 2001.11.20 21:07
- 0 COMMENTS
- /
- 0 LIKES
Midas Application 배로에 대해서
- 초보자
- 2001.11.20 21:04
- 0 COMMENTS
- /
- 0 LIKES
InputBox에서 나오는 font를 바꾸고 싶은데..
- 항시
- •
- 2001.11.20 20:54
- 4 COMMENTS
- /
- 0 LIKES
Teechart 에서 드레그 앤 드롭시, 커서 바꾸는 방법?

티차트로 드레그 앤 드롭을 하려 합니다. 티차트위로 드레그 했을때, 티차트의 아이콘을 드레그 아이콘으로 바꾸었으면 하는데, 일반적인 방법으로는 잘 되질 않습니다. 어떻게 해야 할지요? 답변 부탁드립니다.
- 홍성락
  
  •
  
  2001.11.20 22:16
  
  항시 wrote: > > 티차트로 드레그 앤 드롭을 하려 합니다. > > 티차트위로 드레그 했을때, 티차트의 ...
- 항시
  
  •
  
  2001.11.21 03:39
  
  먼저 질문에 대해, 답변해 주셔서, 감사드립니다. ^^; 저두 역시 말씀해주신 방법을 사용해 보았지만,...
- 홍성락
  
  •
  
  2001.11.21 05:21
  
  항시 wrote: > > 먼저 질문에 대해, 답변해 주셔서, 감사드립니다. ^^; > > 저두 역시 말씀해주신 방...
- 항시
  
  •
  
  2001.11.21 20:53
  
  감사합니다. 많은 도움이 되었습니다. ^^; 홍성락 wrote: > 항시 wrote: > > > > 먼저 질문에 대...
- 완전 처버
- 2001.11.20 20:52
- 0 COMMENTS
- /
- 0 LIKES
psd, dcr 에 대한 문의...
- progio
- 2001.11.20 20:49
- 0 COMMENTS
- /
- 0 LIKES
paradox db를 VB에서 데이터 읽어들이려고 합니다..
- Bulduki
- 2001.11.20 20:42
- 0 COMMENTS
- /
- 0 LIKES
Server/Client Port중복에 대하여..
- 김우헌
- 2001.11.20 20:36
- 0 COMMENTS
- /
- 0 LIKES
DBCHART에서 Y축 값을 천억 단위로설정하면
- 델초보
- 2001.11.20 20:08
- 0 COMMENTS
- /
- 0 LIKES
고수님들 제발...플리즈[분명히 서버에서 화일을 지웠는데....????]
- codenj
- 2001.11.20 20:00
- 0 COMMENTS
- /
- 0 LIKES
Could Not Create Output File 'c:BorlandDelphi...
- 이재광
- •
- 2001.11.20 19:26
- 1 COMMENTS
- /
- 0 LIKES
grid에서 색깔은 잘 바뀌는데 글자가 안나오네용??
- 홍성락
  
  •
  
  2001.11.21 01:27
  
  이재광 wrote: > > 안녕하세요. 고수님들 지금 예제를 보고 DBgrid에서 특정 row의 색을 바꾸는 작업...

항시
2001/11/20 20:54
Views273

Likes0

Comments4

Reports0
Tag List
수정
삭제
목록으로

←First Page

1480 1481 1482 1483 1484 1485 1486 1487 1488 1489

Last Page→