禁用最大化(属性)
窗体-> BorderIcons属性-> biMaximize-> False
让鼠标无法改变窗体大小(属性)
窗体-> Constraints属性 ->MaxHeight和MinHeight->设置相同限制鼠标改变窗体的高度
窗体-> Constraints属性->MaxWidth和MinWidth->设置相同就限制鼠标改变窗体的宽度
========================================================================
无法改变大小（事件）
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
Resize:=false;
end;
怎样在关闭窗口之前加入确认对话框(事件)
在Form的OnCloseQuery 事件里加入以下代码：
if Application.MessageBox(Close it now?，Ask，MB_YESNO )=IDYES then
CanClose:=True
else
CanClose:=False;
delphi中禁用Ait+F4 (事件)
方法1.
OnCloseQuery中设置CanClose：＝False;
方法2.
procedure TMainForm.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (key=Vk_F4) and ([ssAlt]=shift) then //屏蔽Alt+F4键让程序不能被关闭
key:=0;
end;
==================================================================
字符串右查找（函数）
LastDelimiter（）
如：
s:=‘abcdefg‘ ;
LastDelimiter（s,‘ef‘）; {6}
数学中的取整(函数)
floor 和 ceil 是 math unit 里的函数，使用前要先 Uses Math。
trunc 和 round 是 system unit 里的函数，缺省就可以用。
floor 直接往小的取，比如 floor(-123.55)=-124，floor(123.55)=123
trunc 直接切下整数，比如 trunc(-123.55)=-123, floor(123.55)=123
ceil 直接往大的取，比如 ceil(-123.55)=-123， ceil(123.55)=124
round 计算四舍五入，比如 round(-123.55)=-124，round(123.55)=124
文件操作（函数） 是否存在\删除\提示\个性提示
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
ShowMessage(‘Form1已创建‘); // 如果Form1已经Free过了，这条判断语句返回的还是真
方法2.
if (Form1 = nil) then
ShowMessage(‘Form1没创建‘); //不存在提示，存在不提示
方法3.
//判断窗体Name是否已经存在.
function TMainForm.FormIsExist(Name:string):Boolean;
var I:Integer;
begin
Result:=False;
if MainForm.MDIChildCount>0 then
begin
for I:=MainForm.MDIChildCount-1 downto 0 do
begin
if MainForm.MDIChildren[I].Name=Name then
begin
Result:=True;
Break;
end; //
end; //
end;
end;
http://www.cnblogs.com/FKdelphi/p/4643191.html