Solved

drag form by grabbing form or a control (Sticky Form)

Posted on 2006-07-22
1
251 Views
Last Modified: 2010-04-04
Hello,

I want to make my form movable by grabbing the form or one of the controls.

IE: no titlebar
0
Comment
Question by:fibdev
1 Comment
 
LVL 28

Accepted Solution

by:
TName earned 50 total points
ID: 17161472

Hi, try this in the form's  (or any of the form's controls) MouseDown procedure (change 'Form1' accordingly):

//if Button=mbLeft then begin   {if the form shouldn't be movable by pressing the right mouse button...}
 ReleaseCapture;
 SendMessage(Form1.Handle, WM_SYSCOMMAND, $F012, 0);
//end;
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Introduction I have seen many questions in this Delphi topic area where queries in threads are needed or suggested. I know bumped into a similar need. This article will address some of the concepts when dealing with a multithreaded delphi database…
Two types of users will appreciate AOMEI Backupper Pro: 1 - Those with PCIe drives (and haven't found cloning software that works on them). 2 - Those who want a fast clone of their boot drive (no re-boots needed) and it can clone your drive wh…
Finds all prime numbers in a range requested and places them in a public primes() array. I've demostrated a template size of 30 (2 * 3 * 5) but larger templates can be built such 210  (2 * 3 * 5 * 7) or 2310  (2 * 3 * 5 * 7 * 11). The larger templa…

860 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question