Q&A

  • 클릭했을때..



원래있던 그림이 클릭하면 다른그림으로 바뀌게 할수 있나요?

그런식으로 여러장을 만들고싶거든요;

대답해주세요-!
1  COMMENTS
  • Profile
    신호성 2004.01.03 18:57
    이미지의 OnClick이벤트에서 해당 이미지를 로드하시면 될듯...

    procedure TForm1.Image1Click(Sender: TObject);
    begin
      
       case (Sender as TComponent).Tag of
         0 :  Image1.Picture.LoadFromFile('c:\SampleImage.bmp');
         1 :  Image1.Picture.LoadFromFile('c:\SampleImage1.bmp');
         2 :  Image1.Picture.LoadFromFile('c:\SampleImage2.bmp');
         3 :  Image1.Picture.LoadFromFile('c:\SampleImage3.bmp');
      end;

      (Sender as TComponent).Tag := ( (Sender as TComponent).Tag + 1 ) Mod 4;


    end;