[Rabid Coyote]

В книжке М. Фленова описывается такой фокус:

Изменчивый указатель

Есть такая интересная WindowsAPI-функция - setSystemCursor. У нее есть два параметра.

□ Курсор, который надо изменить. Чтобы указать на системный курсор, МОЖНО ИСПОЛЬЗОВАТЬ ФУНКЦИЮ GetCursor.

Вид системного курсора, который нужно установить. Здесь можно указать одно из следующих значений:

• ocr_NORMAL - нормальный курсор в виде стрелки;

• ocr_ibeam - курсор, используемый для выделения текста;

• ocr_wait - большие песочные часы;

• OCR_CROSS - крестик;

• ocr__up - стрелка вверх;

• OCRSIZE - курсор изменения размера;

• ocr^icon - значок;


• ocr__sizewe - курсор горизонтального изменения размера;

• OCR_sizens - курсор вертикального изменения размера;

• ocr_sizeall - курсор горизонтального и вертикального изменения размера;

• ocr__sizeno - интернациональный несимвольный курсор;

• ocr_appstarting - маленькие песочные часы со стрелкой.

И сразу же небольшой пример изменения текущего вида указателя мыши:

procedure TForml.ButtonlClick(Sender: TObject);

begin

SetSystemCursor(GetCursor, OCR_CROSS);

end;

Этот код изменяет текущий курсор на крестик, который используется при графическом выделении.

Вопрос: Можно ли рандомно менять вид системного курсора, чтобы в течение определенного времени курсор последовательно принимал все перечисленные значения?