//光标在控件不同位置时的样式 // 由于拐角这点手动精确实在困难 所以用范围 范围+3 这样很容易就找到这一点了 procedure CtrlMouseMove(Ctrl: TWinControl; Shift: TShiftState;X, Y: Integer); begin with Ctrl do begin ) ) then begin ) ) then Cursor := crSizeNWSE; ) ) then Cursor := cRsizewe; ) and (Y <= He…