从实作标题栏按钮开始浅谈组件的制作

begin

FVisible := Value;

SendMessage(FForm.Handle,WM_NCACTIVATE,0,0);

end;

procedure TTitleBarButton.Notification(Component: TComponent;

Operation: TOperation);

begin

inherited;

if (Operation = opRemove) and (Component = FPopup) then

FPopup := nil;

end;

function TTitleBarButton.GetBoundsRect: TRect;

var

Rec: TRect;

FrameThick: Integer; //窗体框架厚度

BtnWidth,BtnHeight: Integer; //标题栏按钮的宽度和高度

begin

GetWindowRect(FForm.Handle,Rec); //得到窗体边界矩形，相对于屏幕左上角

with Result do

begin

FrameThick := GetSystemMetrics(SM_CYFRAME);

Left := (Rec.Right - Rec.Left) - RightMargin - FrameThick;

Top := FrameThick;

if FForm.Borderstyle in [bsSizeToolWin, bsSizeable] then

begin

Dec(Left, 2); Inc(Top, 2);

end

else begin

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!