Q&A

  • Application.ProcessMessage 오류가 뜨네여..한번봐주세여^^
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
randomize;
for i:=0 to 10 do
begin
  button2.Left:=random(100);
  button2.Top:=random(100);
  Application.ProcessMessage
  until button2.OnClick;
  end;


end;
버튼2가 눌러졌을경우 버튼2의 소스를 실행하구다시 for문으로 돌아오는 소스있니다..
오류가 나네여..
오류내용은 [Error] Unit1.pas(47): '.' expected but ';' found입니다 무슨오류인가여?
2  COMMENTS
  • Profile
    hello 2003.11.18 06:23
    Application.ProcessMessage 다음에 ';'넣으셔야죠..

  • Profile
    하얀까마귀 2003.10.02 04:29


    processmessage 다음에 ; 이넘 빠졌단 이야기인데요.. ㅠㅠ

    스펠도 틀린것 같은데.. 끝에
    processmessages; 가 맞죠?

    그리고 그다음에 바로 until 인가요??

    repeat 이 있어야죠?

    그리고 until button2.OnClick;

    이것도 아닌것 같네요..
    True/False 가 넘어가도록 해야 되는데
    onClick 은 프로시져고 리턴값 자체가 없어요..
    음.. 문제가 좀 있는듯 하네요..

    우선 에러는 ; 만 넣으면 해결될껍니다.

    그럼.