폼위에 timage를 이용해서 그림 하나를 올리구요..

그위에 label과 버튼을 올려놓구

버튼을 누르면 밑에 처럼 박스 하나가 그려지구..

없어지구~ 다시 하나가 그려져야 하는데..-.-;;

아무리 해두... 두번째 박스가 나타났다가 그냥 없어져 버려요 ㅠ.ㅠ

뭘 어떻게 해야 할지 몰라서 Q&A부터 싸아아악 뒤져봤는데 -.-;;

비스무리한거두 없어서 ㅠ.ㅠ 이렇게 질문을 드립니다...

아시는분 좀가르쳐 주세요 ㅠ.ㅠ

같은 자리에 Canvas로 하나의 이미지를 나타내구

없애구 다른 이미지를 나타나게 하고 싶어요 ㅠ.ㅠ



procedure TForm1.Button1Click(Sender: TObject);

var

NewRect : TRect;

begin

Label1.Canvas.Brush.Color := clRed;

Label1.Canvas.FillRect(Rect(0,0,100,100));



NewRect := Rect(Label1.Left,Label1.Top,Label1.Left + 100,Label1.Top + 100);



// InvertRect(Handle,NewRect);

if InvalidateRect(Handle ,@NewRect,True) then begin

// showmessage('dddddd');

end;



Label1.Canvas.Brush.Color := clwhite;

Label1.Canvas.FillRect(Rect(10,10,50,50));

end;