常用小技巧

 

 

 

1.Assigned()是干什么用得？assigned用来判断对像是否已经创建;如： if not assigned(sjjg.Selected) then exit; 2.SetDlgAutoClose(15*1000, True); 15秒后关闭对话框。 3.if key=#13 then begin key:=#0; perform(WM_NEXTDLGCTL,0,0); end;