各位老兄,小弟是个编程菜鸟,哪位仁兄帮帮忙吧。小弟有一两个小问题指教。
在此多谢了。 1。在打开一个最大化的窗体时,那个窗体总是从中间伸展出来。能不能使得它直接的显
示出来。我只记得好像有个API函数的。可能设其中一参数的。可一时忘记了。各位高手
帮帮忙吧。
2。在打开一个窗体时,(用到接数据操作)发觉打开速度大慢了。有什么方法能快速的打开窗体。我用到是的ACCESS数据库,用ADO连接。如果用到的表更多的话,速度更加慢,
我发觉。指教有何高招啊。 高手快快出现吧~~
在此多谢了。 1。在打开一个最大化的窗体时,那个窗体总是从中间伸展出来。能不能使得它直接的显
示出来。我只记得好像有个API函数的。可能设其中一参数的。可一时忘记了。各位高手
帮帮忙吧。
2。在打开一个窗体时,(用到接数据操作)发觉打开速度大慢了。有什么方法能快速的打开窗体。我用到是的ACCESS数据库,用ADO连接。如果用到的表更多的话,速度更加慢,
我发觉。指教有何高招啊。 高手快快出现吧~~
1。在打开一个最大化的窗体时,那个窗体总是从中间伸展出来。能不能使得它直接的显示出来。2。在打开一个窗体时,(用到接数据操作)发觉打开速度大慢了。有什么方法能快速的打开窗体。我用到是的ACCESS数据库,用ADO连接。如果用到的表更多的话,速度更加慢,
高手快快出现吧~~
form_super.zip有一个正好是你要的第三方空间
在form上胡乱放些控件,然后
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
AutoScroll := False;
repeat
ScaleBy (93, 100);
Application.ProcessMessages;
until Height < 70;
end;/////////////////////////////////////////////procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
AnimateWindow(handle,300,AW_HIDE or AW_CENTER);
或
AnimateWindow(handle,300,AW_HIDE or AW_BLEND);(windwos2000 用效果好)
end;
AnimateWindow(handle,300,AW_HIDE or AW_CENTER);