繰り返しの中に条件

解決

向かいのトトロ 2007-02-06 22:16:27 No: 24797

repeat〜until間に「EMTERKeyを押したら・・・」という条件を入れることは可能でしょうか。可能でしたらどのように書けばよいでしょうか。

repeat

if ENTERKeyを押したら
・・・
・・・

until 条件;

このようにしたいのです。

うんと 2007-02-07 01:45:21 No: 24798

こんな感じです。

procedure TForm1.Button1Click(Sender: TObject);
var
  flag: boolean;
begin
  flag := false;
  repeat
    sleep(10);
    if (GetAsyncKeyState(VK_RETURN) and $8000) <> 0 then flag := true;
  until flag;
  Color := clRed;
end;

向かいのトトロ 2007-02-07 20:25:29 No: 24799

あざーす！
すごく参考になりました。

GetAsyncKeyState(VK_RETURN) and $8000

こんなの始めてみました。