Dephi/C++交流

好记性不如烂笔头，记录下过程中的点点滴滴！

导航

2008年5月27日

不用第三个变量交换a,b的值

摘要： procedureSWap(vara,b:Integer);begina:=a+b;b:=a-b;a:=a-b;end; 阅读全文

posted @ 2008-05-27 16:01 sunhj 阅读(404) 评论(0) 推荐(0)

TSplitControl 的实现（三）

摘要： var SplitControl :TSplitControl;procedure TMainForm.FormCreate(Sender: TObject);begin SplitControl := TSplitControl.Create(Self);end;procedure TMainForm.SplitterMouseDown(Sender: TObject; Button: TM... 阅读全文

posted @ 2008-05-27 15:22 sunhj 阅读(260) 评论(0) 推荐(0)

TSplitControl 的实现（二）

摘要： implementationuses Graphics, SysUtils, Classes;function CToC(C1, C2: TControl; P: TPoint): TPoint;begin Result := C1.ScreenToClient(C2.ClientToScreen(P));end;constructor TSplitControl.Create(AForm: T... 阅读全文

posted @ 2008-05-27 15:13 sunhj 阅读(423) 评论(0) 推荐(0)

TSplitControl 的实现（一）

摘要： 1 阅读全文

posted @ 2008-05-27 14:20 sunhj 阅读(713) 评论(3) 推荐(0)