自定义光标编译错误(50分)

X

xjlaokai2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-27

• #1

我在编译时，出现[Error] Unit3.pas(134): Array type required错误提示，
我已将brcc32编译过的资源文件放在了程序的文件夹中，为什么还是有什么
需要数组类型错误呢？

procedure TForm3.FormCreate(Sender: TObject);
const
; crMyCursor =3;

begin
; screen.cursor[crMycursor]:=Loadcursor(hinstance,'bulecur');
; screen.Cursor :=crMycursor;
end;

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-27

• #2

Loadcursor???

你是从 资源文件 取啊!

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-27

• #3

const

; crMyCursor = 5;
procedure TForm1.FormCreate(Sender: TObject);
begin
; Screen.Cursors[crMyCursor] := LoadCursor(HInstance, 'NewCursor');
; ////Cursors

; Cursor := crMyCursor;
end;

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-27

• #4

还有
你可以用 ImageList1 存ico
// HCURSOR = HICON; //原因
procedure TForm1.BitBtn1Click(Sender: TObject);
var
;i:ticon;
begin
; i:=ticon.Create;

; ImageList1.GetIcon(0,i);
; Screen.Cursors[5] := i.Handle;
; Cursor := 5;
end;

//我在公司 今天下午 就 做 这活，不过 ;ImageList1 有好多

 

X

xjlaokai2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-27

• #5

编译的问题就出在screen.cursor[crMycursor]:=Loadcursor(hinstance,'bulecur');
这一句，我是从资源文件中取，为什么有这样的错误？

 

X

xjlaokai2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-02-28

• #6

what is the meaning?

 

X

xjlaokai2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-03

• #7

接受答案了.