Delphi中绘制圆角矩形的窗体
制作圆角矩形的窗体：
01.procedure TPortForm.FormCreate(Sender: Tobject);
02.var hr :thandle;
03.begin
04.hr:=createroundrectrgn(0,0,width,height,20,20);
05.setwindowrgn(handle,hr,true);
06.end;
如果不要窗体外框，则使用：
01.procedure TPortForm.FormCreate(Sender: Tobject);
02.var hr :thandle;
03.begin
04.hr:=createroundrectrgn(1,1,width-2,height-2,20,20);
05.setwindowrgn(handle,hr,true);
06.end;
由于第一段代码做出来的窗口，圆角部份会没有边框，使用下面的代码做出边框：
01.procedure TForm1.FormPaint(Sender: TObject);
02.var
03.DC: HDC;
04.Pen: HPen;
05.OldPen: HPen;
06.OldBrush: HBrush;
07.begin
08.DC := GetWindowDC(Handle);
09.Pen := CreatePen(PS_SOLID, 1, clGray);
10.OldPen := SelectObject(DC, Pen); //载入自定义的画笔,保存原画笔
11.OldBrush := SelectObject(DC, GetStockObject(NULL_BRUSH));//载入空画刷,保存原画刷
12.RoundRect(DC, 0, 0, Width-1, Height-1,21,21); //画边框
13.SelectObject(DC,OldBrush);//载入原画刷
14.SelectObject(DC,OldPen); // 载入原画笔
15.DeleteObject(Pen);
16.ReleaseDC(Handle, DC);
17.end;
相关文档：
一、类和对象
类是对象的类型，是创建对象的模板。一个类可以创建多个对象，而一个对象总是属于某个类。类具有内部的属性（状态）和行为（操作）。
对象是类的实例，具有区别于同类其他对象的属性集合。
对象的声明存放于堆栈，对象的引用存放于堆。
二、类的方法分类
1、 普通方法
不加任何修饰� ......
服务端：添加ADOConnection，ADOQuery1，ADOQuery2。设置ADOQuery1为主表，ADOQuery2为从表。(通过 ADOQuery2.SQL.Text:= 'select * from 从表 where FKID=:主表PKID'设置)。添加DataSetProvider1和DataSetProvider2分别连接到ADOQuery1和ADOQuery2。
客户端：添加ClientDataSet1，ClientDataSet2。ClientDataS ......
引用自：http://develop.csai.cn/delphi/NO000001.htm
自动完成简介
大家一定都非常熟悉IE浏览器的地址输入编辑框，它提供了自动完成的功能。自动完成（Auto Complete）功能简化了编辑框的输入功能，它可以根据已经输入的部分字符串进行预测和匹配。图2.7的例子，演示了自动完成可以依据输入的“pro”，给� ......
Delphi ActiveX Form的使用实例
By knityster
1. ActiveX控件简介
ActiveX控件也就是一般所说的OCX控件，它是ActiveX技术的一部分。
ActiveX控件可以被集成到很多支持ActiveX的应用当中去，或者直接用来扩展应用的功能，这些支持ActiveX的应用包括C++ Builder、Delphi、Visual dBASE、 Visual Basic、Visual C++� ......
procedure TForm1.Button1Click(Sender: TObject);
Var
Num: Integer;
Begin
Try
Num:=StrToInt(Edit1.Text);
Edit2.Text:=IntToStr(Num*Num);
Except
On EConvertError Do ShowMessage(Edit1.Text+'无法转成整数!');
......
