delphi窗体制作问题

在网上抄一份答案。

创建任意形状的窗口

procedure TForm1FormClick(Sender: TObject);

var

R : HRgn;

begin

if IsRound then

begin

SetWindowRgn(Handle,0,True);

DeleteObject(R);

IsRound := False;

end

else

begin

R := CreateEllipticRgn(-15,-15,Width+15,Height+15);

SetWindowRgn(Handle,R,True);

IsRound := True;

end;

end;

procedure TForm1FormCreate(Sender: TObject);

begin

IsRound := False;

end;

end

////////////////////////////////////////////

四四方方的窗体也会变形，利用win32 API函数setwindowrgn就可以将窗口定义为任何形状，以下是将窗口定义为园角矩形的例子：

procedure TPortFormFormCreate(Sender: Tobject);

var hr :thandle;

begin

hr:=createroundrectrgn(0,0,width,height,20,20);//定义园角矩形(win API函数)

setwindowrgn(handle,hr,true); //设置园角窗口

end;

为了使该窗口更好，应在onResize事件处理程序放相同的代码。

/////////////////////////////////////

用汉字做窗体形状

procedure TForm1FormCreate(Sender: TObject);

var

rgn:HRGN;

begin

BeginPath(CanvasHandle);

SetBkMode( CanvasHandle, TRANSPARENT );

CanvasFontName:= '宋体';

CanvasFontSize:=100;

CanvasTextOut( 20, 20, '漂亮吗');//用"漂亮吗"作为form的形状

EndPath(CanvasHandle);

rgn:= PathToRegion(CanvasHandle);

SetWindowRgn( Handle, rgn, true );

end;

这个都没人来答么，那我来大概说说吧。

首先你得先写一个注册窗口的函数：

function tmainformRegClass:Boolean;

var

WndClass:TWndClass;

begin

//这里面是你注册的WndClass窗体的信息，代码麻烦我就不打了。

end;

然后是创建窗口的过程：

procedure tmainformCreateForm;

var

Wnd:HWND;

begin

RegClass;

Wnd:=CreateWindow('MyFormClass', //注册窗口类名

'窗口标题', //窗口标题栏

WS_OVERLAPPEDWINDOW, //窗口风格

CW_USEDEFAULT, //默认left

CW_USEDEFAULT, //默认top

CW_USEDEFAULT, //默认width

CW_USEDEFAULT, //默认height

SELFHANDLE, //父窗口句柄

MainMenu1Handle, //窗口菜单

HInstance, //程序实例

nil //窗体附加参数

);

IF Wnd<>0 THEN

BEGIN

ShowWindow(Wnd,SW_SHOWNORMAL); //SHOW窗口

UpdateWindow(Wnd); //刷新窗口

END;

end;

完了，以上是以 CreateWindow 为例 创建窗口，仅作参考。

PS：没有分的回答还要打N多代码，怪不得没人来答。

　Delphi中嵌入的数据库应用开发工具如Database Form Expert具有很强大的功能 我们不需要编写任何程序代码便可以快速地创建一个简单的数据库应用程序 甚至还能创建基于多个数据库表的主要──明细型数据库应用程序

　本章主要介绍用Delphi开发简单的数据库应用程序的一般方法和步骤 首先让读者对Delphi强劲的数据库应用开发工具有一个直观的印象 然后在此基础上进行复杂的数据库应用程序的设计 本章主要包括以下内容

　● 创建数据库应用窗体

　包括用Database Form Expert 或手工方式创建简单的无需编写程序代码的应用程序或者利用多个部件并编写功能复杂的程序代码创建主要──明细型数据库应用程序

　● 在应用程序中控制字段有关的属性

　描述怎样读写数据库表中字段的值和控制字段的显示格式等

　本章所介绍的例子中用到的窗体 数据库表以及相关的文件都是在安装Delphi时缺省安装在C:\DELPHI\DEMOS\DB\MASTAPP目录中 并且用别名DBDEMOS表示这一子目录 在本章例子中 除特殊声明外 所有的TTable和 TQuery 部件的 DatabaseName 属性都设置为DBDEMOS

　 简单的基于单表的据库应用

　用Decphi创建显示一个数据库表中的内容的应用非常简单和方便 只需要三个部件 只要将这三个部件通过相关的属性相互联系起来 不需要编写任何程序代码便可以实现 例如 用户想查看数据库表Customer DB中的内容时 可以按下面步骤来实现

　 选择相关的部件

　选择菜单Project/New开始一个新工程 并修改Form 的Caption属性为CustomerFrom 并把Name属性设置为CustomerForm 然后从部件选择板上的Data Access 页上选取一个Datasounce部件和一个Table部件放到窗体的左上角 它们是非可见的部件 在窗体中我们看到的只是部件的图标 从Data Control页上选取DBGrid部件放到窗体中前两个部件的下面 完成这些工作之后 窗体如图 所示

　图在CustomerFrom 窗体中放置三个部件

　 设置部件的属性

　为了使TDBGrid部件能够显示数据库表Customer DB中的客户信息 我们必须修改窗体三个部件相关的属性 这些属性的设置如表 所示

　表 CustomerFrom 窗体中三个部件的属性设置

　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

　属 性 属 性 值

　──────────────────────────────

　DataSource AutoEdit False

　DataSource DataSet Table

　Table DatabaseName DBDEMOS

　Table TableName CUSTOMER DB

　Table Active True

　DBGrid DataSource DataSource

　━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━

　这里要注意的是 DBDEMOS是Delphi缺省安装时C:\Delphi\DEMO\DB\MASTAPP目录的别名 而且数据库表Customer DB存在该目录下 用户在使用这一例子时 请注意这两项设置都是正确的 另外 Datasource Dataset Table TableName和DBGrid Datasource属性都有下拉式列表框允许用户从可能的值列表中选择它们的值 这样能方便我们进行属性的设置 而且不容易出错

　Datasouuce AutoEdit属性设置为False是为了防止用户修改数据库表中的数据 在下面的讨论中我们将详细地进行说明

　Table Active设置为True时 Delphi会打开Table TableName所指定的数据库表 如果这个数据库表不存在（或表中什么也没有 即空表） Delphi 会d出出错信息并且Table Active变成False 当Table Active被设置成True之后 Table 部件的一些属性就不能再修改了 如Table DatabaseName和Table Tablename属性 若要修改它们 必须首先要将Table Active属性设置为False 然后再进行修改 否则 Delphi会d出错误信息 Cannot perform this operation on an open database 当看到这个错误信息时 只需把Table Active置成False 完成相关的修改后 再把 Table Active 属性设置为True

　当我们把DBGrid DataSource的值设置成DataSource 时 Delphi会把Customer DB中的数据填充到DBGrid 部件中 并且可以用DBGrid 中的滚动条来浏览数据库表中的所有记录

　 运行程序

　保存文件 命名代码单元为Cust pas 命名工程名为CustPRJ DPR 然后按F 编译并运行程序 程序执行之后 我们可以使用滚动条或键盘移动键在字段和记录间移动 但不能修改表中的数据 因为Datasouc AutoEdit 属性已被设置为False

　Cust程序中的三个部件都有各自的特殊用途 三个部件的相关属性在内部相互联系生成最终的应用程序 TTable部件连接磁盘上的实际数据库表和应用程序中其他部件的通道 TTable部件具有打开和关闭 读取 更新以及其他处理磁盘数据库文件的方法

　TDatasource部件是连接TTable部件和数据浏览部件如TDBGrid部件的桥梁 TDBGrid部件用于显示数据库表中的数据信息 它为应用程序提供一个直观的界面 图 阐述了这三个部件之间的关系

　 Cust程序中三个部件之间的内部关系

　TDBGrid 部件的奇妙之处在于它知道如何去获取数据库表中的下一条或前一条记录 我们使用滚动条或箭头键便可以完成这项任务 TDBGrid部件不知道如何增加 删除和修改记录 如果想让 Cust 程序能够修改数据库表中的记录 只要把 Datasource 部件的AutoEdit属性设置成True 并重新编译和运行程序就可以达到目的 使用箭头键 把DBGrid的高亮度条定位到某一个字段上 然后键入新值 该字段中的值将被键入的新值所取代 并且当移动到另一条记录时 健入的信息会自动写入数据库表中 如果想放弃所做的改动 只需在离开该字段前按一下Escape键

　如果想在表中增加新记录 可以把高亮度条移到网格底端的空白记录上并输入新记录的有关字段值 也可以在用户指定的某一条记录的后面插入一条新记录 只要把高亮度条定位到指定的记录上 按Ins键 使可以在该记录的后面插入新记录

　删除某一条记录时 把高亮度条定位在想删除的记录的任何字段上 按Ctrl+ del键 这时会出现保护信息 我们可以确认是否真的想删除该项记录

　TDBGrid为用户提供了较完备的功能 用于控制是否编辑 增加或删除记录 若想禁止对数据库表作任何修改 设置TDBGrid部件的Readonly属性为 True 并设置 Option dgEDiting为False（这将为我们提供一个只读的数据库表浏览器而不是数据库编辑器 但它隐含着增加 编辑和删除记录的能力） TDBGrid部件的这些属性和Option属性其它选项的各种不同组合可以让我们很方便地对数据库表进行有效的浏览 编辑等 *** 作

　如果我们经常使用像电子表格那样的界面来显示和编辑数据记录 TDBGrid 部件便是一个很方便的工具 但那并不是最友好的用户界面 如果想拥有更优美更直观的界面 我们还可以使用单独的数据浏览部件来显示数据库表中各个字段的值 并利用TDBNavigator部件控制对数据库表的存取

lishixinzhi/Article/program/Delphi/201311/25173

按我以前做的管理系统的方法是：

在adoquery的insert事件中(或者用户点击新增时)加入类似代码：

ADOQuery1FieldByName('订单号')asstring:= 'ORD'+FormateDateTime('yyyyMMddhhmmss',now);

不过以上方法也有可能会出错，就是两个客户端在同一秒执行的时候，可能会分配同一个单号。解决方法是加一个在读取数据的时候加锁。

或者更好的就是加一个id，开始位是1000001：

ADOQuery1FieldByName('订单号')asstring:= 'ORD'+ADOQuery1FieldByName('ID')asstring;

Forms窗口是开展大部分设计的工作区域。首次启动Delphi 20时显示的是窗体Form1。可以把部件放在窗体中，通过移动位置、改变尺寸等 *** 作随心所欲地安排它们，以此来开发应用程序的用户界面。您可以把窗体想象成一个可以放置其它部件的容器。窗体上有栅格（Grids），供放置部件时对齐位置用，在程序运行时Grids是不可见的。一个真正的应用程序可能有不止一个窗口，您可以选用不同的窗体进行设计。其它窗体可以是对话框（Dialog Box）、数据录入框等。

代码窗口一开始处于窗体窗口之下。因为在Delphi中，设计用户界面直接在窗体中进行，运行结果和设计样板完全一致。当部件被放到窗体上时，Delphi会自动生成大部分的用户界面代码。您所应做的只是在它为您生成的框架中加入完成所需功能的程序段而已。点动Form1的状态行使代码窗口可见。

这个窗口中是代码编辑器。可以在其中书写Delphi应用程序的源代码。当程序中含有不止一个窗口时，会有几个库单元的源程序出现在代码编辑器中。代码编辑器的标题条中显示了当前正在编辑的库单元文件名。要查看某一特定程序的源代码，只需用鼠标点动写有该库单元文件名的页标签，就可以对该库单元进行编辑了。 从空白窗体开始工作。将设计一个简单的程序：在屏幕上开一个窗口，窗口中有一个图框，用三个按钮来改变图框的形状；再用一个图标按钮来进行图框的颜色设置，通过颜色编辑对话框来选择变成哪一种颜色。在菜单上选用File|New Application菜单项来生成新的工程文件。这时，屏幕上出现窗体。　 部件（Component）是建立Delphi应用程序的要素。Delphi为用户提供了丰富的部件库，既有可视的部件（如编辑框、按钮）等，也有不可视的部件（如系统定时器、数据表等）。它们按照功能分别排列在Component Panel的各页上。

移动鼠标到Component Panel上，在部件按钮上“犹豫”一、两秒钟，一个**小提示框就会d出，写有该部件的名称，称之为提示（Hint）。在要选择的部件上单击左键，则该部件按钮被按下，表示部件已被当前选择。然后，将鼠标移动到窗体上，按下左键，该部件被放到窗体中。部件的轮廓线上会显现八个被称为尺寸调整器（Sizing Handles）的黑色小方块。它除了供用户调整尺寸使用之外，还可以表示该对象处于当前编辑状态。此时，按“Delete”键可以将该部件删除。

在Component Panel上，点动写有“Additional”的页标签，切换到Additional页，再移动鼠标，逐个用观看Hint的办法查看部件的名称，找到“Shape”部件（其图标为圆、方形、三角形三个几何体），将其放到窗体的左方。再按动“Standard”页标签，找到“Button”部件（图标上画有OK按钮）。Delphi允许在添加多个同类型的部件时，不必每次到部件选项板上选取。按住“Shift”键，同时在“Button”部件上单击鼠标左键，这时“Button”部件处于按下状态，并有蓝色边框，表示已经被选择固定。依次在窗体右方的三个位置单击左键，则会放置三个相同的Button部件。把鼠标光标移到部件选项板左侧的箭头图标处，这是“取消选择”按钮，它没有提示。按动它，会发现“Button”部件按钮恢复d起状态。否则，每次“Form1”上的鼠标单击左键动作，都会导致增加一个按钮部件。

再次进入“Additional”部件页，选择一个“BitBtn”按钮（图标是有绿色对号的OK按钮），把它放到其它三个按钮部件的下面。

点动“Dialog”页标签，选择以16色网格做图标的ColorDialog部件并把它放到窗体的任意位置。因为这一部件是不可视部件，所以它的位置并不影响大局。 一般来讲，此时放置到窗体的部件是分散排列的，而且其大小不是真正需要的尺寸。除了不可视的ColorDialog部件外，其它的部件都需要进行位置、大小和显示字样的调整。Delphi提供的对齐工具和窗口栅格为这些调整提供了方便。移动部件：只需把鼠标落到想移动的部件上，按住左键并移动光标，到合适的位置再释放左键，整个部件即被移到新位置。

调整尺寸：先把鼠标光标移动到要改变尺寸的部件上，单击左键，选中该部件，尺寸调整器会出现，把鼠标移动到其中的一个小黑色方块上，当鼠标变成拖动方向指示时，按下并拖动鼠标左键，可以放大或缩小部件。上下左右的小方块用来移动对应的各边，四个角的方块可以移动相连的两条边。如果要精确地表述部件的尺寸，可以在Object Inspector上，改变Left（表示部件左边缘到窗体左边框的象素点数）、Top（表示窗体上边框到部件上边缘的象素点数）、 Width（部件本身的宽度）、Height（部件本身的高度）等属性。关于改变部件的属性，下文还将仔细讲解。

使得一组部件对齐：用调整位置的方法可以对齐部件，但 *** 作步骤复杂。Delphi提供的对齐工具可以使多个部件的对齐极为迅速方便。下面来使四个按钮对齐。先将四个按钮选为一组：按住并向右下方拖动鼠标左键，在窗体上画出围绕四个按钮的矩形，释放左键后，被选中的按钮周边会出现暗灰色的边框。选用Edit|Align命令，或使用d出式菜单（在被固定的部件上单击鼠标右键激活），可以显示图14所示的对话框。

要使按钮沿左边对齐并使它们在垂直方向上均匀分布，先在Alignment对话框的Horizontal栏内选择“Left sides”，在“Vertical”栏内选择“Space equally”，按动OK按钮，Delphi就会自动将它们对齐。然后，您可以将它们四个作为一组来移动。在四个按钮以外的窗体上按动鼠标左键，就释放了组中的部件，使它们成为分立的部件。

利用对齐模板来对齐部件也是很方便的。首先要将要对齐的部件选成一组，选择View|Alignment Palette显示对齐模板。按照所示的方式选择即可达到对齐的目的。