폼위에 TImage 와 TScrollBar 를 올려놓고 스크롤을 움직이면 사진이 투명이 되는걸 해보려고 하는데요
AlphaBlend 함수를 쓰는게 맞나요?
procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
AlphaBlend:= TScrollBar(Sender).Position > 0;
AlphaBlendValue:= $ff - TScrollBar(Sender).Position;
end;
이렇게 하면 폼이 투명이 되더라고요.
이렇게 폼이 투명이 되는걸 폼 말고 TImage 안의 사진이 투명이 되게 하고 싶어서요..
혹시 아시는분 계시면 답변좀 정중히 부탁 드리겠습니다.
감사합니다.
|