最大化、最小化和关闭按钮
各位大虾,能不能把最大化、最小化和关闭按钮的提示文字改掉呢?
[解决办法]
- Delphi(Pascal) code
procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);begin inherited; if (Message.Result=HTREDUCE) or (Message.Result=HTZOOM) then Message.Result := HTCAPTION;end;
发布时间: 2012-09-09 09:27:54 作者: rapoo
最大化、最小化和关闭按钮
各位大虾,能不能把最大化、最小化和关闭按钮的提示文字改掉呢?
[解决办法]
procedure TForm1.WMNCHitTest(var Message: TWMNCHitTest);begin inherited; if (Message.Result=HTREDUCE) or (Message.Result=HTZOOM) then Message.Result := HTCAPTION;end;