5,379
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.FormCreate(Sender: TObject);
begin
screen.Cursors[1]:=loadcursorfromfile('50.cur');
bIn := False;
end;
procedure TForm1.pnl1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
icon: Cardinal;
begin
bIn := True;
pnl1.Cursor := 1;
end;
procedure TForm1.pnl1Exit(Sender: TObject);
begin
bIn := False;
pnl1.Cursor := 0;
end;
procedure TForm1.pnl1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
bIn := False;
pnl1.Cursor := 0;
end;
procedure TForm1.pnl1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
Rc: TRect;
begin
Rc := pnl1.ClientRect;
InflateRect(Rc, -2, -2);
if not PtInRect(Rc, Point(x,y)) then
begin
if bIn then
begin
bIn := False;
Screen.Cursor := 0;
end;
end;
end;