论坛 › Delphi交流 › 交作业——消失了的美女

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

交作业——消失了的美女

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

继小甲鱼的消失了的苍井空，


**** Hidden Message *****


源代码
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

{:5_106:}强大啊。。。

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

谢谢楼主分享

查看完整版本: 交作业——消失了的美女