procedure Screen_Cursor_Set(sCurs:string='crDefault'); //"Назначить" курсор на экране Var Yes:boolean; begin sCurs:=trim(sCurs); Yes:=false; if sCurs='' then sCurs:='crDefault'; if AnsiUpperCase(sCurs)=AnsiUpperCase('crDefault') then begin Yes:=true; Screen.Cursor:=crDefault; end; if AnsiUpperCase(sCurs)=AnsiUpperCase('crHourGlass') then begin Yes:=true; Screen.Cursor:=crHourGlass; end; if AnsiUpperCase(sCurs)=AnsiUpperCase('crSQLWait') then begin Yes:=true; Screen.Cursor:=crSQLWait; end; if AnsiUpperCase(sCurs)=AnsiUpperCase('crAppStart') then begin Yes:=true; Screen.Cursor:=crAppStart; end; if AnsiUpperCase(sCurs)=AnsiUpperCase('crHandPoint') then begin Yes:=true; Screen.Cursor:=crHandPoint; end; if AnsiUpperCase(sCurs)=AnsiUpperCase('crArrow') then begin Yes:=true; Screen.Cursor:=crArrow; end; if AnsiUpperCase(sCurs)=AnsiUpperCase('crNo') then begin Yes:=true; Screen.Cursor:=crNo; end; if not Yes then begin Screen.Cursor:=crDefault; end; end;