在DELPHI中实现无标题窗体的移动最简单的方法
在窗体的OnMouseDown事件中加入下面几行代码即可
If Button = mbleft Then
begin
ReleaseCapture;
SendMessage(MainForm.Handle,WM_NCLBUTTONDOWN,HTCAPTION,0);
end;
若窗体的表面被别的控件履盖掉，则需要把上面的代码加入履盖的控件里面。
相关文档：
一、Dll建立
（一）DLL项目的建立
library mydll;
uses
base in 'base.pas';
exports
Triple name 'Tr';
{$R *.res}
begin
end.
（二）函数单元
unit base;
interface
uses windows;
function Triple(N:integer):integer;stdcall;
......
关开发习惯的一些想法，如鲠在喉，不吐不快。究其发贴动机，当然不排除有骗取参与分的可能，但另一方面，也希望能给同行（念Xing）者提供一些建议，或者参考(希望不是误人子弟)。同时，也希望各位能够就我的这些陋习，发表一点看法，给出批评和指正的意见。谢谢。
一．建立工程目录
&nbs ......
新建一个dLL工程,新建一个窗体 Fr_bb80 ,我们先在它的单元里加入下面一个函数:
function Report(Title:Pchar):Boolean ;stdcall;
begin
if Fr_bb80=nil then
begin
Fr_bb80:=TFr_bb80.Create(application);
&nb ......
//声明:
GetWindowText(
hWnd: HWND; {窗口句柄}
lpString: PChar; {接收文本的缓冲区的指针}
nMaxCount: Integer {指定缓冲区大小, 其中包含NULL字符; 如果文本超出，会被被截断}
): Integer; {返回字符个数, 不包括中断的空字符; 如果标题为空或句柄无效, 则返回零}
//举例:
var
arr: ......
▼▲Delphi面向对象编程的20条规则(转载)
楼主ZyxIp（绝望中...）2003-09-02 14:28:07 在 Delphi / VCL组件开发及应用 提问
作者简介
Marco Cantu是一个知名的Delphi专家，他曾出版过《精通Delphi》系列丛书，《Delphi开发手册》以及电子书《精通Pascal》(该电子书可在网上免费获得)� ......
