홍지곤 님이 쓰신 글 :
: 투명폼을 만들어 박지훈.임프님의 글을 보고 이미지(TImage)를 드래그하여
: 폼을 움직이게 만들었습니다...
: 근뎅.문제가 생겼습니다..이미지를 드래그하여 윈도우 창의 아이콘위에
: 올려 놨을때와, 다른(탐색기)창을 띄운후 그위에서 이미지를 클릭하여
: 이동했다가 다시클릭해서 이동하면, 이런것을 반복하면 이미지가 손상
: 됩니다..그리고 내가 만든 투명폼을 최소화 시켰다가 다시 띄우면
: 정상인 이미지가 나옵니다...앞의 이미지 손상 현상은 이미지의
: Drag & Drop을 빨리했을때 자주 발생되는 것 같습니다...
: 어떻게 해야 하나여? 답변 꼭 부탁드립니다...
: 혹시 아는 분은 메일로 보내주셔도 됩니다....
:


홍지곤 님이 쓰신 글 :
: 투명폼을 만들어 박지훈.임프님의 글을 보고 이미지(TImage)를 드래그하여
: 폼을 움직이게 만들었습니다...
: 근뎅.문제가 생겼습니다..이미지를 드래그하여 윈도우 창의 아이콘위에
: 올려 놨을때와, 다른(탐색기)창을 띄운후 그위에서 이미지를 클릭하여
: 이동했다가 다시클릭해서 이동하면, 이런것을 반복하면 이미지가 손상
: 됩니다..그리고 내가 만든 투명폼을 최소화 시켰다가 다시 띄우면
: 정상인 이미지가 나옵니다...앞의 이미지 손상 현상은 이미지의
: Drag & Drop을 빨리했을때 자주 발생되는 것 같습니다...
: 어떻게 해야 하나여? 답변 꼭 부탁드립니다...
: 혹시 아는 분은 메일로 보내주셔도 됩니다....
:


문제점은 위에서 설명 했습니다..
그래서 이번에는 소스를 올립니다..
소스는 기존에 있는 것을 제가 활용할려고 붙였습니다..
제가 만든 것은 사이트에 다있는 내용들입니다..
그냥 제가 합쳐 봤습니당...그런데....여전히 드래근 앤 드롭
할때 문제가 있습니다...

void __fastcall TForm1::CreateParams( TCreateParams & Params )
{
TForm::CreateParams(Params);
Params.ExStyle = Params.ExStyle | WS_EX_TRANSPARENT;
}
//------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
   Brush->Style = bsClear;  
}
//------------------------------------------------------------------------

void __fastcall TForm1::Image1MouseDown(TObject *Sender,
     TMouseButton Button, TShiftState Shift, int X, int Y)
{
   //이부분은 이미지로 폼
   //을 드래그 앤 드롭 할 수 있게 만든 것임..
   ReleaseCapture();
   SendMessage(Handle, WM_SYSCOMMAND, 0xf012, 0);
}
//------------------------------------------------------------------------
당연히 CreateParams 메소드는 헤더파일(.h)에 선언 해주셔야 하구요


폼의 BorderStyle -> bsNone으로 했거여...
투명이미지를 만들기위에 TImage의 Transparent -> true로 했습니다...

이렇게 투명폼과 투명이미지로 만든 이미지를 가지고
폼을 드래그 앤 드롭을 할 수 있더라구여..근데..
드래그 앤 드롭하면서...몇가지 이미지 손상되는 것 발견..
탐색기창위에서 드래그 앤드롭 했을 시 탐색기창의 메뉴라인이
제가만든 이미지를 손상시키게 합니다..이 밖에 몇가지가
더있는 것 같습니다...

프로그램 업그레이드 시켜주세영!~~~제발여....

그럼요..^^