W
wangfujun
Unregistered / Unconfirmed
GUEST, unregistred user!
我自定义了一个fastreport的预览窗体,想在frpreview里更换Cursor为一个‘放大镜’的Cursor就象Word 里的预览那样,运行以后它只是在frpreview的边框地方才变为 '放在镜'
请问怎么才能让它在里面的页面里变为‘放大镜’呢?
部分代码如下:
procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[crMyCursor]:=
LoadCursor(handle,'CURSOR_CUR');
form1.frPreview1.Cursor:=crMyCursor;
// crMyCursor 为自定义的‘放在镜’
end;
请高手给指点一下!!
请问怎么才能让它在里面的页面里变为‘放大镜’呢?
部分代码如下:
procedure TForm1.FormCreate(Sender: TObject);
begin
Screen.Cursors[crMyCursor]:=
LoadCursor(handle,'CURSOR_CUR');
form1.frPreview1.Cursor:=crMyCursor;
// crMyCursor 为自定义的‘放在镜’
end;
请高手给指点一下!!