안녕하세요. 최용일입니다.



먼저 사용자정의 커서를 만드셔야겠죠. 아마 델파이에 있는 이미지에디터로 만드시

는것이 제일 무난한듯 하네요. 쓰기 편하게 리소스 파일 형태로 만드세요.



그리고 그 리소스파일을 $R 지시자를 써서 유닛에 추가하시고요

{$R resourcefilename.res} 이런 형태로..



그다음 커서리소스를 읽어와서 Screen의 커서배열에 집어넣으시면 됩니다.

대부분의 TControl에서 파생된 모든 컴포넌트는 DragCursor란 드래그할때의 커서를

가리키는 속성이 있습니다. 여기에 리소스에서 읽은 커서인덱스를 넣어주시면 됩니다.

이런 작업은 폼의 OnCreate에서 하시면 되겠죠. 물론 적당한 다른데서 해도 되고요...

0 ~ -22번까지의 커서인덱스는 델파이에서 미리 정의해 놓았으니까 0보다 큰값으로

하시면 무리없이 사용이 가능합니다.



{$R MyRes.res}



const

crMyCursor = 1;



procedure TForm1.FormCreate(Sender: TObject);

begin

// 리소스에서 커서이름을 읽을때 대소문자 구별을 합니다

// 리소스파일을 만들때의 커서이름을 써주세요...

Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'MYCURSOR');

// 드래그할 컴포넌트의 커서를 설정합니다.

// 속성편집창에서 입력할땐 숫자로 써주어야 합니다.

DragComponent.DragCursor := crMyCursor;

end;



김일영 wrote:

> 안녕하십니까?

> Drag & Drop의 구현을 하려고 합니다.

> 구현 자체는 할 수 있겠는데 DragCursor를 델파이에서 제공하는 것 아닌

> 다른 커서를 쓰고 싶은데 어떻게 해야 하는지 모르겠습니다.

> 실은 커서 모양을 어떻게 만드는지도 잘은 모릅니다.

> 제가 검색을 잘 못해서인지 Drag & Drop 자체가 아니고 이런 문제는

> 문답을 찾지 못했습니다.

> 도와주시면 대단히 감사하겠습니다.

> 건강하십시오.