간단한 퍼즐게임 만들기

강좌를 할려다가 귀찮고 방학숙제를 안해서 한다고;; 글쓰는게 늦었네요;

먼저 델파이를 실행해주세요. 아무버전이나 상관없어요.

1.

 

따라하시면 어렵지는 않을거에요;; 이미지 압박때문에 ㅋ

제가 5번째 사진에 소스만 알려드릴께요.

Procedure SwapPos(B1,B2:TSpeedButton);
var
  iTemp : Integer;
Begin
  iTemp:= B1.Left;
  B1.Left:= B2.Left;
  B2.Left:= iTemp;

  iTemp:= B1.Top;
  B1.Top:= B2.Top;
  B2.Top:= iTemp;
End;

Function CanMove(B1,B2:TSpeedButton):Boolean;
Begin
  Result:=
     ((Abs (B1.Left-B2.Left) <= (B1.Width + 5)) and (B1.Top = B2.Top)) or
     ((Abs (B1.Top-B2.Top) <= (B1.Height + 5)) and (B1.Left = B2.Left));
End;

procedure TForm1.SpeedButton9Click(Sender: TObject);
begin
  If CanMove(TSpeedButton(Sender), btBlank) = True then
    SwapPos(TSpeedButton(Sender), btBlank);
end;

end.

8번째 사진의 소스는 직접 적으세요;; 프로그래밍은 폼짜고 글짜는게 대부분인데 계속 소스만 그냥 알려주면 실력도 안늘고 다음에 할때는 실력이 안늘어서 더 힘들꺼에요.

 

 (원래는 소스 날려서 안알려주는 거에요;; ''*)

 

모르겠는거는 댓글 달아주세요 ^^;

 

IQ가 777이 안넘는다면 꾸욱~ 눌러주세요.^^;;