这是一个再普通不过的Button1Click执行体: procedure TForm1.Button1Click(Sender: TObject); begin ShowMessage('I am Button1'); end; 点击Button1以后,具体过程是:Form收到Button1发来的W Read More
最近在翻看项目代码时,看到了这两个函数,想到这个功能十分常用,因此拿出来与大家分享,希望对大家有用。几点说明: 1、记得当初写代码那会,是参考了网上的帖子写的,做了一点小修改。因此代码源于网络。 2、同时感谢原作者,只可惜当时没能记下原文网址,实在抱歉!刚才搜了一下,也没搜着,大家若发现原文出处,请 Read More
TOperation = (opInsert, opRemove); TComponentState = set of ( csAncestor The component was introduced in an ancestor form. Only set if csDesigning is Read More