首页 > 其他分享 >delphi - 调整表单大小,同时保持纵横比

delphi - 调整表单大小,同时保持纵横比

时间:2023-12-23 09:44:26浏览次数:35  
标签:delphi 表单 NewWidth 纵横 var AspectRatio NewHeight

https://www.coder.work/article/5928583

在Form1的 OnCanResize 事件添加以下处理程序似乎对我来说效果很好:

procedure TForm2.FormCanResize(Sender: TObject; var NewWidth,
  NewHeight: Integer; var Resize: Boolean);
var
  AspectRatio:double;
begin
  AspectRatio:=200/300;//Height/Width   高/宽  比
  NewHeight:=round(AspectRatio*NewWidth);
end;

 这里能设置缩放的最大值和最小值

 

标签:delphi,表单,NewWidth,纵横,var,AspectRatio,NewHeight
From: https://www.cnblogs.com/tulater/p/17922721.html

相关文章

  • delphi模拟redis单元
    1unitg_uSdRedis;23interface45uses6Windows,7Messages,8SysUtils,9Variants,10Classes,11Graphics,12Controls,13Forms,14Dialogs,15IniFiles,16StdCtrls,17DateUtils;1819const......
  • Delphi:循环语句for-in
    https://www.jianshu.com/p/0fd88af44e4b1.for-in循环中,循环对数组,列表,字符串或其他  有序类型的容器的每个元素进行操作。2.打开IDE,新建VCL应用,添加一个button1,一个memo1,双击button1,编写代码:procedureTForm1.Button1Click(Sender:TObject);varstr:string;c......
  • Delphi服务程序打开界面程序
    functionWTSQueryUserToken(SessionId:ULONG;varphToken:THandle):BOOL;stdcall;external'Wtsapi32.dll';procedureCreateProcessByUser;varSessionId:DWORD;UserToken:THandle;Hndl,Hnd:THandle;luid:Int64;newPriv,oldPriv:TTokenP......
  • 哪里有拖拽表单设计器?
    用什么样的方式方法可以提高办公协作效率?很多客户朋友了解到拖拽表单设计器是一种可以满足日益递增业务需求的平台,都在询问哪里有拖拽表单设计器?在新的发展形式下,低代码技术平台是助力实现流程化办公的得力助手,其核心功能表单设计器也能快速提升90%办公协作效率,创造可观价值。什......
  • QFormLayout表单布局
    一、概述新建一个简单的登录表单布局QFormLayout。如下: 二、代码示例#include"FormLayoutExampleWindow.h"FormLayoutExampleWindow::FormLayoutExampleWindow(QWidget*parent):QWidget(parent){this->setWindowTitle("Form表单");//表单布局......
  • vue3 + vant4 :form表单中,搭配 Popup 和 Field 实现vant-picker组件,设置默认值及默认选
    环境:vue3,vant4背景:Picker作为用于辅助表单填写,搭配Popup和Field。页面需要给picker设置默认值,city为温州,但是在popup弹出时,picker没有选中温州这个选项,还时停留在杭州。解决方案:看了很多解决方案,设置default-indexset,ColumnIndex。都尝试了,还是不行。而且这些方法,其实在v......
  • Delphi新语法IfThen
    https://docwiki.embarcadero.com/Libraries/Sydney/en/System.StrUtils.IfThenfunctionIfThen(AValue:Boolean;constATrue:string;AFalse:string=''):string;usesSystem.StrUtils;相当于Excel的IF函数 OrderStr:=OrderStr+'['+Colum......
  • delphi cxgrid 过滤列表增加右键
    首先弹出来的下拉过滤列表也是一个form思路,在不改源代码的情况:hook,捕捉  WM_SHOWWINDOW 消息,通过源码得知窗口类名为”TcxGridFilterPopup“ 再通过句柄转得到实例,同时在本单元type一下新的 TcxGridFilterPopup, TcxGridPopupListBox才能访问保护起来的方法跟属性C......
  • 动态表单如何校验?
    记录一下,直接上代码,核心代码就一行。注:prop需要定位到表单项的值,如下定义为[${index}].value,即校验canConfigList[${index}].value的值<el-form:inline="true"ref="addChannelRef":model="canConfigList"label-width="110px"><e......
  • 【python爬虫课程设计】纵横中文网——分类数据爬取+数据可视化
    一、选题的背景通过新书榜和推荐榜来分析小说分类和人气之间的关系,让作者能加了解读者的需求,写出令读者感兴趣的题材来吸引读者。热门的小说分类是社会文化普遍认可的体现,了解和分析社会文化对于提升和改善社会文化起着重要作用。了解热门小说分类让新人作者选择题材时有份......