Home

Page 72
Page 72
background image

Простые шутки 65

строчке эта область становится диапазоном движения мышки. После этого

указатель мыши окажется запертым в левом верхнем углу в квадрате разме-

ром 100 х 100 пикселей. Дальше мышка, даже при всем желании пользова-
теля (да и своем тоже!), выбраться не сможет.

А вот еще один интересный трюк:

procedure

cr:TRect;

begin

 0, 1, 1);

end;

Здесь размер области движения мыши равен 1 пикселю по горизонтали

и вертикали. В результате мышь просто замирает в в этом пикселе. Такая

вот виртуальная мышеловка.

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

Есть такая интересная

 У нее есть

два параметра.

 Курсор, который надо изменить. Чтобы указать на системный курсор,

МОЖНО ИСПОЛЬЗОваТЬ

  G e t C u r s o r .

 Вид системного курсора, который нужно установить. Здесь можно ука-

зать одно из следующих значений:

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

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

 — большие песочные часы;

 OCR_CROSS

 — крестик;

 — стрелка вверх;

 OCRSIZE

 — курсор изменения размера;

 — значок;

 OCR_SIZENWSE

 или

 — курсор, используемый для растяги-

вания объекта;

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

 OCR

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


Copyright © 2020 Файлообменник files.d-lan.dp.ua

Использование любых материалов сайта возможно только с разрешения автора.