O/H Wilna Smith έγραψε:
>
>
> I am teaching Delphi at high school level. We want to do a program
Delphi at a high school? That's really nice.
> where 2 cars (bitBtns) move towards each other until you press a
> button. How does one check if a button is pressed or not inside the
> while loop?
>
> Regards
> Wilna Smith
procedure TForm1.StopButtonClick(Sender: TObject)
begin
StopButtonClicked := True;
end;
procedure TForm1.Loop;
begin
while not StopButtonClicked do
begin
Application.ProcessMessages; { let app process any other message }
// the rest of the code
end;
StopButtonClicked := False;
end;
--
Regards
Theo
------------------------
Theo Bebekis
Thessaloniki, Greece
------------------------
Greek_Delphi_Prog : a Delphi Programming mailing list in Greek at
http://groups.yahoo.com/group/Greek_Delphi_Prog
CSharpDotNetGreek : A C# and .Net mailing list in Greek language at
http://groups.yahoo.com/group/CSharpDotNetGreek
atla_custom : a Unisoft Atlantis Customization mailing list at
http://groups.yahoo.com/group/atla_custom
------------------------
-----------------------------------------------------
Home page: http://groups.yahoo.com/group/delphi-en/
To unsubscribe: [EMAIL PROTECTED]
Yahoo! Groups Links
<*> To visit your group on the web, go to:
http://groups.yahoo.com/group/delphi-en/
<*> Your email settings:
Individual Email | Traditional
<*> To change settings online go to:
http://groups.yahoo.com/group/delphi-en/join
(Yahoo! ID required)
<*> To change settings via email:
mailto:[EMAIL PROTECTED]
mailto:[EMAIL PROTECTED]
<*> To unsubscribe from this group, send an email to:
[EMAIL PROTECTED]
<*> Your use of Yahoo! Groups is subject to:
http://docs.yahoo.com/info/terms/
