首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

2010年7月21日

摘要: var WM_SETREDRAW : DWORD; f : TForm2;begin WM_SETREDRAW := $000B; SendMessage(ClientHandle,WM_SETREDRAW,0,0); f:= TForm2.Create(Application); f.Show; SendMessage(ClientHandle,WM_SETREDRAW,1,0); ReDraw... 阅读全文

posted @ 2010-07-21 16:46 colincode 阅读(894) 评论(1) 推荐(0) 编辑

摘要: 功能大体描述:Form1中有一个Edit和一个Button,当点击BUTTON时弹出FORM2,FORM2中也有一个EDIT和一个BUTTON,当点击FORM2中的BUTTON时,将FORM2中的EDIT的TEXT属性赋值给FORM1中的EDIT的TEXT。unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes... 阅读全文

posted @ 2010-07-21 13:56 colincode 阅读(650) 评论(0) 推荐(0) 编辑