검색어 입력폼

가위바위보 게임

등록일 2003.10.28 한글파일한글 (hwp) | 5페이지 | 가격 800원

목차

1. 디자인 & 속성설정
2. Coding
3. 실행

본문내용

2. Coding

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
i,m,s:integer;
begin
for i:=1 to 40 do
begin
Image1.Picture.LoadFromFile('1.bmp');
sleep(4);
Image1.Repaint;
Image1.Picture.LoadFromFile('2.bmp');
sleep(4);
Image1.Repaint;
Image1.Picture.LoadFromFile('3.bmp');
sleep(4);
Image1.Repaint;
end;
다운로드 맨위로