Tscreen-use screen to change the cursor

// Changing the form or the cursor of a widget may not pass the screen object, for example, begin self. cursor: = crappstart; panel1.cursor: = crhandpoint; {optional cursor values: crdefault = tcursor (0); crnone = tcursor (-1); crarrow = tcursor (-2 ); crcross = tcursor (-3); cribeam = tcursor (-4); crsize = tcursor (-22); crsizenesw = tcursor (-6); crsizens = tcursor (-7 ); crsizenwse = tcursor (-8); crsizewe = tcursor (-9); cruparrow = tcursor (-10); crhourglass = tcursor (-11); crdrag = tcursor (-12 ); crnodrop = tcursor (-13); crheatmap = tcursor (-14); crvsplit = tcursor (-15); crmultidrag = tcursor (-16); crsqlwait = tcursor (-17 ); crno = tcursor (-18); crappstart = tcursor (-19); crhelp = tcursor (-20); crhandpoint = tcursor (-21 ); crsizeall = tcursor (-22);} // Where crdefault is the default cursor end;
  
   
 // Use screen to change the cursor. Program For example, begin screen. cursor: = crsize; end;
  
   
 // If the control has a different cursor, screen. cursor must be the default value, that is, screen. cursor: = crdefault;