| | Submitted on: 11/14/2001 3:14:27 AM
By: Mark van Renswoude
Level: Beginner User Rating:
By 2 Users Compatibility:Delphi 5, Delphi 4, Pre Delphi 4
Users have accessed this article 4693 times. |
|
| | While looking at somebody else's code, I noticed he was doing all sorts of stuff with the MouseDown and MouseMove events. Here's a better way, it captures the WM_NCHITTEST message which Windows sends to make Windows think the user is clicking on the titlebar, thus moving the form... | |
|
Terms of Agreement:
By using this article, you agree to the following terms...
1) You may use
this article in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
2) You MAY NOT redistribute this article (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
3) You may link to this article from another website, but ONLY if it is not wrapped in a frame.
4) You will abide by any additional copyright restrictions which the author may have placed in the article or article's description. |
unit Unit1;
interface
uses
Windows,
Messages,
Forms;
type
TForm1 = class(TForm)
protected
procedure WMNCHitTest(var Msg: TWMNCHitTest); message WM_NCHITTEST;
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest);
begin
// Call default procedure
inherited;
// Modify result to make windows think we're
// clicking on the titlebar when we're actually
// clicking on the client area...
if Msg.Result = HTCLIENT then
Msg.Result := HTCAPTION;
end;
end.
| |
Other 3 submission(s) by this author
|
|
|
Report Bad Submission |
|
|
Your Vote! |
See Voting Log |
|
Other User Comments |
11/20/2001 12:59:11 PM:Paul Harrison What a wonderful explanation!
About
6 or 7 concepts are explained with 1
(oops, 2) lines of code.
Excellent
|
8/5/2002 12:11:25 PM:Earl Thank you. I was about to do that
MouseXXX thing too. This is MUCH
cleaner and simpler.
|
10/17/2002 8:29:21 AM:Jason Myerscough How could I make this code work when I
click an image? instead of the form?
|
3/17/2003 4:45:54 PM: How would i be able to test when a user
RIGHT clicks on the title bar only?
thus then displaying a POPUPMENU when
the user has done so?
|
|
Add Your Feedback! |
Note:Not only will your feedback be posted, but an email will be sent to the code's author in your name.
NOTICE: The author of this article has been kind enough to share it with you. If you have a criticism, please state it politely or it will be deleted.
For feedback not related to this particular article, please click here. |
|