 |
BorlandTalk.com
Borland discussion newsgroups
|
| View previous topic :: View next topic |
| Author |
Message |
morz
Guest
|
 Posted: Sun Feb 12, 2006 5:10 am Post subject: can someone change this delphi code to c++? |
 |
|
procedure TForm1.WMNCHitTest(var Message: TMessage);
begin
inherited;
{cancel any sizing hit except HTLEFT}
if message.result in
[HTTOPLEFT,HTTOP,HTTOPRIGHT,HTRIGHT,HTBOTTOMRIGHT,
HTBOTTOM,HTBOTTOMLEFT] then
message.Result := HTCLIENT;
end; |
|
| Back to top |
|
 |
Perseid
Guest
|
| Posted: Sun Feb 12, 2006 9:03 am Post subject: Re: can someone change this delphi code to c++? |
|
|
"morz" <blackrosezy (AT) gmail (DOT) com> Spat the Words
| Quote: | procedure TForm1.WMNCHitTest(var Message: TMessage);
begin
inherited;
{cancel any sizing hit except HTLEFT}
if message.result in
[HTTOPLEFT,HTTOP,HTTOPRIGHT,HTRIGHT,HTBOTTOMRIGHT,
HTBOTTOM,HTBOTTOMLEFT] then
message.Result := HTCLIENT;
end;
|
Here's some code that does this.
class TForm1 : public TForm
{
private: // User declarations
void __fastcall MyWMNCHitTest(TMessage &Msg);
public: // User declarations
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_NCHITTEST, TMessage, MyWMNCHitTest)
END_MESSAGE_MAP(TForm)
}
void __fastcall TForm1::MyWMNCHitTest(TMessage &Msg) {
Msg.Result=(int)DefWindowProc(Handle, Msg.Msg, Msg.WParam, Msg.LParam);
if (Msg.Result==HTBOTTOM || Msg.Result==HTBOTTOMLEFT ||
Msg.Result==HTBOTTOMRIGHT || Msg.Result==HTRIGHT ||
Msg.Result==HTTOPLEFT || Msg.Result==HTTOPRIGHT ||
Msg.Result==HTTOP)
Msg.Result=HTCLIENT;
} |
|
| Back to top |
|
|
|
|
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum
|
|
FAQ
Search
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
