Make transparent & easy draggable form

Form's transparent properties will work just in WinXP. I want to do it in all Windows (putting a transparent image on it and the form's shape would be like the image). and how can I drag my form with any part of its surface (means I can drag it with not just its header but any part).

thank you
mehdi_mAsked:
Who is Participating?
 
Slick812Commented:
hello  mehdi_m, I would use a windows system Region to do a Shape for a Form from a bitmap in systems older than Win 2000, , , But,  it is NOT so easy to get a region from a bitmap, you might look at this EE question , which will show you code to do this -


http://www.experts-exchange.com/Programming/Programming_Languages/Delphi/Q_20353055.html


if you want to move the form with the mouse then get the  OnMouseDown  event for that form and use this code-
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
if (Button = mbLeft) then
  begin
  ReleaseCapture;
  Form1.perform(WM_SysCommand, $F012, 0);
  end;
end;

- - - - - - - - - - - - - - - - - - - - - - - - - - - - -
ask questions if you need more information
0
 
mehdi_mAuthor Commented:
Thank you very much Slick812.
0
 
Slick812Commented:
glad I could help - -, just a Note -

you may get some more responces to your questions if you offer more than 50 points
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.