[代码]设置窗体位于最前

这个功能是利用了系统的API,让程序位于最前,在实际中还是有一定的作用的。 procedure TForm1.CheckBox1Click(Sender: TObject); begin if CheckBox1.Checked then SetWindowPos(Handle,HWND_TOPMOST,Left,Top,Width,Height,0)//设置窗体至上 else SetWindowPos(Handle,HWND_NOTOPMOST,Left,Top,Width,Height,0)

[代码]创建登录闪现窗体

显示登陆窗体前加载一个动态框,如正在载入资源之类的,内容自己定义吧。 Application.Initialize; Form2:=TForm2.Create(Application);{Create创建闪现窗口对象} Form2.Show; Form2.Update; Application.CreateForm(TForm1, Form1); Sleep(1000); Form2.Hide; Form2.Free;{Free从内存中释放对象} Application.Run;

[代码]窗体关闭时提示变动的保存

如果窗体有数据操作,在未保存时关闭窗体,进行一个提示。 procedure TFrmSave.FormCloseQuery(Sender: TObject; var CanClose: Boolean); //窗体关闭时提示变动的保存 begin if ADODataSet1.State in [dsInsert, dsEdit] then begin if MessageBox(0, '发现未保存的数据,需要保存吗?', '', MB_YESNO + M