Избавиться от раздражающего SQL Wait курсора

Delphi , ОС и Железо , Мышка и Курсор

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

{ 
  Simply place this one line of code in the OnCreate event of 
  the form that is showing the annoying SQL Wait cursor... 
}

 procedure TForm1.FormCreate(Sender: TObject);
 begin
   Screen.Cursors[crSQLWait] := Screen.Cursors[crHourGlass];
   // or whatever cursor you would like to replace the SQL hourglass with 
end;

Знаменитый "SQL-курсор ожидания"!

Код-снippet, предоставленный DeeCo и извлеченный из Швейцарского центра Delphi, представляет собой простое решение для устранения раздражающего SQL-курсора ожидания. Вот что он делает:

В событии FormCreate вашей формы этот код устанавливает курсор crSQLWait (обычно иконка часов) в качестве одного и того же курсора, который вы указываете (в этом случае, crHourGlass). Это эффективно заменяет курсор SQL-ожидания на указанный.

Таким образом, когда выполняется запрос SQL и обычно появлялся бы "курсор ожидания", он вместо этого будет отображать указанный курсор (например, иконку часов).

Вот код снова для удобства:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Screen.Cursors[crSQLWait] := Screen.Cursors[crHourGlass];
  // или любая другая иконка, которую вы хотите заменить часами
end;

Свободно изменяйте часть Screen.Cursors[crHourGlass] для указания другой иконки, которая подходит вам.

Замечание: если вы хотите установить этот курсор для всех форм в вашей приложении, вы можете поместить код в центральном месте, например, в модуле или классе, и затем вызвать его из события FormCreate каждой формы.

Избавиться от раздражающего SQL Wait курсора можно, поместив в событии OnCreate формы код, который заменяет cursor на часовой стрелкой.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Мышка и Курсор ::