[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;

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

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

[Bargest]

Можно. В чем проблема?

[Rabid Coyote]

Сообщение от Bargest

Можно. В чем проблема?

проблема в том, что у меня не получается. )))

попробовал вот так:

Код:

procedure TForm1.Button1Click(Sender: TObject);
begin
repeat
randomize;
setSystemCursor(GetCursor, ocr_cross);
  setSystemCursor(GetCursor, ocr_wait)
         setSystemCursor(GetCursor, ocr_up);
           setSystemCursor(GetCursor, ocr_normal);
until true;
end;

end.;

lmikle: пользуемся правильными тегами!

но может быть, можно лучше? ))

[Bargest]

Во-первых, рандомайз внутри цикла лишен смысла. Он делается один раз при старте программы. Далее используется рандом. Во-вторых, рандомности в коде нет. Как вариант, сделать массив из всех возможных значений курсоров, в цикле брать рандом от размера этого массива и юзать полученное число как индекс курсора в массиве. Вариант 2 - посмотреть, чему соответствуют эти константы курсоров. Это будут числа, и скорее всего они будут по порядку. Поэтому можно брать рандом сразу от них. Ну и в цикле надо делать ожидание, иначе курсоры будут мигать с огромной скоростью и сольются в марево.

[Rabid Coyote]

Bargest

Благодарствую.