我有两个问题(50分)

请大家快点帮忙看看，不然版主又要给我结束问题了,再次感谢

xlf:如果还想接着讨论请定期提前自己的帖子，如果不想继续讨论请结束帖子。

请大家给个例子好吗？

要是在form里的特效可以用ahm呀
有很多效果

你到底想要干什么？我不明白。
不过我两可以探讨一下，3791762

to 小猪：
我提的问题很明白，就是要得到1、缓缓移动的效果，2、在DLL中控制注册表的例子

这个问题已好长时间，请各位尽快给个例子好吗？谢谢!

我怎么得不到答案？

上面一个Align:=alTop;
下面一个Align:=alClient;
中间放一个splitter,align设为altop;
OK,用以下代码：
procedure TFrmMain.BtnUpClick(Sender: TObject);
var
i:integer;
step:integer;
begin
Step:=25;
i:=Panel1.Height;
while i>=1 do
begin
panel1.Height:=i;
if (i<=1+step) and (i<>1) then i:=1 else i:=i-step;
application.ProcessMessages;
end;
end;

procedure TFrmMain.BtnDownClick(Sender: TObject);
var
i:integer;
step:integer;
begin
Step:=25;
i:=panel1.Height;
while i<=frmMain.height-X do //此处X为一个适当的值，视窗体上控件放置情况定，通常为
//菜单，工具栏，状态栏，分隔条高度的总和，试一下就可以了
begin
panel1.Height:=i;
if (i>=frmMain.height-X-step) and (i<>frmMain.height-X) then
i:=frmMain.height-X
else i:=i+step;
application.ProcessMessages;
end;
end;

从左到右同样的方法

to eyes4:
谢谢，你知道怎么在DLL中控制注册吗？

我再在别的问题中问吧，谢谢