Improve company productivity with a Business Account.Sign Up

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 205
  • Last Modified:

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
0
mehdi_m
Asked:
mehdi_m
  • 2
1 Solution
 
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.

Join & Write a Comment

Featured Post

The 14th Annual Expert Award Winners

The results are in! Meet the top members of our 2017 Expert Awards. Congratulations to all who qualified!

  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now