内容居中(属性)

alignment->tacenter mome控件

 

禁用最大化(属性)

窗体-> 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;