не компилится код

03.08.2013, 20:03. **Показов** 618. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Заранее извиняюсь за очень нубский вопрос. Есть код, например

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  pt : TPoint;
begin
   Application.ProcessMessages;
   Screen.Cursor := CrHourglass;
   GetCursorPos(pt);
   SetCursorPos(pt.x + 1, pt.y + 1);
   Application.ProcessMessages;
   SetCursorPos(pt.x - 1, pt.y - 1);
end;

(спасибо hpc)
Так вот, если этот код просто сунуть компилятору, он его выплевывает с криками, как я понял, чего-то не хватает. (программирование только как третья рука, не знаю почти вообще)

@droider · 03.08.2013, 20:06

mclaren1692, можно увидеть, что он "кричит"?

@Puporev · 03.08.2013, 20:17

Компилятор ошибок не видит, но написано что-то непонятное, вот более-менее понятное

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
  pt : TPoint;
begin
   Screen.Cursor := CrHourglass;
   GetCursorPos(pt);
   SetCursorPos(pt.x + 10, pt.y + 10);//чтобы заметно было
end;

@droider 4912 / 2781 / 853 Регистрация: 04.10.2012 Сообщений: 10,121
	03.08.2013, 20:06	2
	mclaren1692, можно увидеть, что он "кричит"? 0

	03.08.2013, 20:17