If Keypressed Then Ch:=readkey; Опции

[Morfey85]

Перешёл из паскаля в делфи

столкнулся с проблемой:

в паскале при нажатии кнопки считывал символ так: if KeyPressed then ch:=ReadKey;
В делфи такое что то не катит пишет Undeclared identifier...
Как мне реализовать это в Делфях подскажите.

[Morfey85]

Application.ProcessMessages помогло. Только я теперь из цикла выйти не могу и из програмы тоже пока не нажму Еsc(k:=5) и только потом могу выйти.

procedure TForm1.N2Click(Sender: TObject);
var
  i,g:word; //откуда падают яйца и жизни
begin
  randomize;
  o:=0;k:=1;g:=3;    
  Image1.Picture.LoadFromFile(FonFile(k));

  repeat
  i:=random(3)+1;
    repeat

    Image1.Picture.LoadFromFile(FonFile(k));
    нарисовать яйцо
    преместить его координаты
    Application.ProcessMessages;
    until яйцо дошло доконца;
  if i=k then inc(o) else dec(g);
  until g=0;
end;

Что там нащет Таймера?.

Кому интересно что я вообще намучил можете скачать посмотреть тут может что посоветуете.

Сообщение отредактировано: volvo - 2.11.2006 23:48