控件大小的缩放： (2000年12月29日).txt

来自「自己对DELPHI学习的一点体会」· 文本 代码 · 共 40 行

控件大小的缩放： (2000年12月29日) 

网友更新  分类:图形图象   作者: maming(推荐)  推荐:maming   阅读次数:473  
(http://www.codesky.net)  

--------------------------------------------------------------------------------
type
tddhsizebutton=class(tbutton)
public
procedure WmNcHitTest(var msg:TWmNcHitTest);
message wm_NcHitTest;
end; 

procedure TDdhSizeButton.WmNcHitTest(var msg:TWmNcHitTest);
var
pt:tpoint;
begin
pt:=point(msg.xpos,msg.ypos);
pt:=ScreentoClient(pt);
if (pt.x<5) and (pt.y<5) then
msg.Result:=httopright
else if (pt.x>width-5) and (pt.y<5) then
msg.Result:=httopright
else if (pt.x >width-5) and (pt.y>height-5) then
msg.Result:=htbottomright
else if (pt.x<5) and (pt.y>height-5) then
msg.Result:=htbottomleft
else if (pt.x<5) then
msg.Result:=htleft
else if (pt.y<5) then
msg.Result:=httop
else if (pt.x>width-5) then
msg.Result:=htright
else if (pt.y>height-5) then
msg.Result:=htbottom
else
inherited;
end;