交作业——消失了的美女

沉思的牛 · 发表于 2013-8-26 21:51:43

马上注册，结交更多好友，享用更多功能^_^

您需要登录才可以下载或查看，没有账号？立即注册

x

本帖最后由沉思的牛于 2013-8-28 20:48 编辑

继小甲鱼的消失了的苍井空，
QQ截图20130826215355.jpg

游客，如果您要查看本帖隐藏内容请回复

源代码

var
  temp: integer=0;

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  AlphaBlendValue:=Trackbar1.Position;  //调节透明度
end;

procedure TForm1.ScrollBar1Change(Sender: TObject);
begin
  image1.width:=ScrollBar1.Position;   //调节宽度
end;

//开启特效
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  temp:=temp+1;
  image1.Width:=temp;
  if(temp>=255) then
    timer1.Enabled:=false;
end;

end.

沉思的牛 · 发表于 2013-8-26 21:52:53

:lol:自己沙发

红头发 · 发表于 2013-8-26 22:28:33

厉害，感谢分享

牡丹花下死做鬼 · 发表于 2013-8-26 22:46:28

~~~~(>_<)~~~~ delphi我一点都不会~~~~(>_<)~~~~

◆☆格调 · 发表于 2013-8-26 22:59:43

什么情况看看

MistyMoon · 发表于 2013-8-26 23:01:50

看看{:7_169:}

洋洋科技 · 发表于 2013-8-26 23:29:38

这是神马？？？

a13106781 · 发表于 2013-8-27 00:02:36

这是神马？？？

tjusyj · 发表于 2013-8-27 00:32:34

好神奇滴玩意~

Diu · 发表于 2013-8-27 01:57:07

看看，看看

wanghuijunboy · 发表于 2013-8-27 07:36:54

看看楼主分享

machinarium · 发表于 2013-8-27 08:06:30

是啥，不懂？

zunrenli · 发表于 2013-8-27 08:10:17

看看

shanghaixcn · 发表于 2013-8-27 08:22:35

DDDDDDDDDDDDDDDDDDDD

aces · 发表于 2013-8-27 08:36:22

看看.........

Ivan_t · 发表于 2013-8-27 08:37:35

不错！{:1_1:}{:1_1:}

1357Q · 发表于 2013-8-27 08:42:59

SSSSDFSFDSSFSDS

追风少年---24 · 发表于 2013-8-27 08:43:55

PS还是啥东西

eleven_xxq · 发表于 2013-8-27 08:56:03

强大啊。。。

Chaos.Head · 发表于 2013-8-27 09:03:51

谢谢楼主分享

账号		自动登录	找回密码
密码			立即注册

[技术交流] 交作业——消失了的美女

马上注册，结交更多好友，享用更多功能^_^

评分