최수영 wrote:

> 대신증권에서 일반인에게 배포되는 증권프로그램을 보면

> 매 폼이실행시마다 시계모양의 커서로 바뀌면서 초침이

> 돌아갑니다!

> 저도 델파이에서 이것을 구현하고 싶은데 다른책에 보니까

> *.ani화일을 등록하여 사용하던데

> 메인폼에 *.ani화일이 등록되면 다른 서브폼에서도 전부

> 이 커서를 간단하게 사용할 수 있는 방법이 필요합니다!

>

> screen.cursor := ?

> (여기서 ?은 양/음일 경우 사용자커서 또는 기본커서인경우라고

> 하던데 이렇게 간단히 서브폼에서 사용할 수 있을까요...)



const

crMyCursor = 7;

var

TempFile: array[0..MAX_PATH] of Char;

begin

StrPCopy(TempFile,

ExtractFilePath(ParamStr(0))+'kiss.ani'); {애니메이션 커서 파일명}

Screen.Cursors[crMyCursor] := LoadCursorFromFile(TempFile);

if Screen.Cursors[crMyCursor] <> NULL then

begin

// 사용하고 싶은 콘트롤에 커서 지정

Image1.Cursor := crMyCursor;

Label1.Cursor := crMyCursor;

ComboBox1.Cursor := crMyCursor;

end;

김영대 wrote:

> 최수영 wrote:

> > 대신증권에서 일반인에게 배포되는 증권프로그램을 보면

> > 매 폼이실행시마다 시계모양의 커서로 바뀌면서 초침이

> > 돌아갑니다!

> > 저도 델파이에서 이것을 구현하고 싶은데 다른책에 보니까

> > *.ani화일을 등록하여 사용하던데

> > 메인폼에 *.ani화일이 등록되면 다른 서브폼에서도 전부

> > 이 커서를 간단하게 사용할 수 있는 방법이 필요합니다!

> >

> > screen.cursor := ?

> > (여기서 ?은 양/음일 경우 사용자커서 또는 기본커서인경우라고

> > 하던데 이렇게 간단히 서브폼에서 사용할 수 있을까요...)

>

> const

> crMyCursor = 7;

> var

> TempFile: array[0..MAX_PATH] of Char;

> begin

> StrPCopy(TempFile,

> ExtractFilePath(ParamStr(0))+'kiss.ani'); {애니메이션 커서 파일명}

> Screen.Cursors[crMyCursor] := LoadCursorFromFile(TempFile);

> if Screen.Cursors[crMyCursor] <> NULL then

> begin

> // 사용하고 싶은 콘트롤에 커서 지정

> Image1.Cursor := crMyCursor;

> Label1.Cursor := crMyCursor;

> ComboBox1.Cursor := crMyCursor;

> end;

>

고맙습니다!

테스트결과 잘 작동합니다! 그런데 ParamStr(0)은 무엇인가요...



적용할려고 하니까! 시계모양의 애니메이션 *.ani화일이 필요한데

혹시 시계모양의 *.ani화일은 없으신가요!



또 부탁드려서 죄송합니다!