最大化、最小化和关闭按钮
各位大虾,能不能把最大化、最小化和关闭按钮的提示文字改掉呢?
[解决办法]
procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
inherited;
if (Message.Result=HTREDUCE) or (Message.Result=HTZOOM) then
Message.Result := HTCAPTION;
end;
结果就是这俩个铵钮无效了. :<
发布时间: 2013-01-25 15:55:29 作者: rapoo
最大化、最小化和关闭按钮
各位大虾,能不能把最大化、最小化和关闭按钮的提示文字改掉呢?
[解决办法]
procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);
begin
inherited;
if (Message.Result=HTREDUCE) or (Message.Result=HTZOOM) then
Message.Result := HTCAPTION;
end;