이미지를 두가지 놓고 한번 클릭할때마다 그림이 바뀌면서 그 내용도
바꿀수 있게 프로그램 하고 싶은데요
두가지 그림을 바꿀려면 어떻게 해야하나요
그림하나를 선택해서 onclick event에 if문을 쓰면 될것 같긴한데
또하나의 그림으로 change 할때 어떤 명령어로 어떻게 쓰면되는지요.
procedure TForm1.Image1Click(Sender: TObject);
begin
case TImage(Sender).Tag mod 2 of
0: TImage(Sender).Picture.LoadFromFile('c:ImageA.bmp');
1: TImage(Sender).Picture.LoadFromFile('c:ImageB.bmp');
end;
TImage(Sender).Tag := TImage(Sender).Tag + 1;
end;
디스크에서 불러오기 싫다면 리소스를 사용하셔두 되구, 추가로 이미지 컴포넌트 2개 더 놓고, Visible을 Flase로 해서 이 이미지에서 불러와도 되구요...
아래와 같은 식으로 코딩하시면 됩니다...
procedure TForm1.Image1Click(Sender: TObject);
begin
case TImage(Sender).Tag mod 2 of
0: TImage(Sender).Picture.LoadFromFile('c:ImageA.bmp');
1: TImage(Sender).Picture.LoadFromFile('c:ImageB.bmp');
end;
TImage(Sender).Tag := TImage(Sender).Tag + 1;
end;
디스크에서 불러오기 싫다면 리소스를 사용하셔두 되구, 추가로 이미지 컴포넌트 2개 더 놓고, Visible을 Flase로 해서 이 이미지에서 불러와도 되구요...
^^ 항상 즐코하세요...