在线时间:8:00-16:00
迪恩网络APP
随时随地掌握行业动态
扫描二维码
关注迪恩网络微信公众号
内容居中(属性) alignment->tacenter mome控件
禁用最大化(属性) 窗体-> BorderIcons属性-> biMaximize-> False
让鼠标无法改变窗体大小(属性) 窗体-> Constraints属性 ->MaxHeight和MinHeight->设置相同限制鼠标改变窗体的高度 窗体-> Constraints属性->MaxWidth和MinWidth->设置相同就限制鼠标改变窗体的宽度
======================================================================== 无法改变大小(事件) procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
怎样在关闭窗口之前加入确认对话框(事件) 在Form的OnCloseQuery 事件里加入以下代码:
delphi中禁用Ait+F4 (事件) 方法1. OnCloseQuery中设置CanClose:=False; 方法2. procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
================================================================== 字符串右查找(函数) LastDelimiter() 如: s:='abcdefg' ; LastDelimiter(s,'ef'); {6}
数学中的取整(函数) floor 和 ceil 是 math unit 里的函数,使用前要先 Uses Math。
文件操作(函数) 是否存在\删除\提示\个性提示 1.FileExists(opendialog1.FileName)-----------------------------[查看文件是否存在] 2.showmessage('文件己存在') -----------------------------------[提示窗体] 3.Application.MessageBox('保存成功','!提示',MB_ICONWARNING) ---[个性提示] 4.erase(fi);---------------------------------------------------[删除文件] 5.SysUtils.DeleteFile(lj)--------------------------------------[强行删除文件] 6.DirectoryExists(opendialog1.FileName)------------------------[查看目录是否存在]
========================================================== 查看工程中的子窗体是否建立(方法) 方法1. if Assigned(Form1) then 方法2. 方法3. //判断窗体Name是否已经存在. begin begin end; // end; |
2023-10-27
2022-08-15
2022-08-17
2022-09-23
2022-08-13
请发表评论