Цитата:
|
Сообщение от 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: пользуемся правильными тегами!
но может быть, можно лучше? ))