我希望在用户调整表单大小时按比例调整表单大小。我OnCanResize
使用以下代码在事件中完成了此操作:
NewHeight := Round(Height / Width* NewWidth);
为了防止用户通过单击最大化按钮来最大化表单,我设法禁用它WMSysCommand
使用以下代码处理消息:
if (AMsg.CmdType = SC_MAXIMIZE) then MessageBeep(0);
我没有设法做的是防止用户双击标题栏时最大化表单。有没有办法在德尔福做到这一点?
我希望很清楚我不想阻止用户调整表单的大小。我只想在单击最大化按钮并双击标题栏时防止调整大小。