寻
寻路
Unregistered / Unconfirmed
GUEST, unregistred user!
我想要实现你的功能,可以在
rocedure WmNcHitTest(var Msg: TWmNcHitTest); message WM_NCHITTEST;消息中,判断如下:
if Focused and (Cursor <> crSizeAll) and (IsMouseDown) then
begin
Width := Msg.XPos;
Height := Msg.YPos;
...
end;
当然具体的实现,可能要转换一下Msg.XPos和Msg.YPos的坐标.和一些其他的细节.你可以自己实现!
rocedure WmNcHitTest(var Msg: TWmNcHitTest); message WM_NCHITTEST;消息中,判断如下:if Focused and (Cursor <> crSizeAll) and (IsMouseDown) then
begin
Width := Msg.XPos;
Height := Msg.YPos;
...
end;
当然具体的实现,可能要转换一下Msg.XPos和Msg.YPos的坐标.和一些其他的细节.你可以自己实现!
