h1006272147 发表于 2014-7-26 20:19:59

天那，30个鱼币，又不是打土豪，这么狠。

h1006272147 发表于 2014-7-26 21:02:46

突然间弄明白了。激动人心，无法言表！
procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.AlphaBlend:=True;
end;
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
lbl3.Caption:=IntToStr(TrackBar1.Position)+'%';
Form1.AlphaBlendValue:=Byte(TrackBar1.Position*255 div TrackBar1.Max);
end;

MLK 发表于 2014-8-17 14:05:34

甲鱼老师说自己是中文系毕业的，结果连凸和凹都分不清……

ygrong_2008 发表于 2014-9-6 08:46:37

太生气了，无法HOLD啦 >_<......

Lin-Ye 发表于 2015-2-16 10:26:50

好东西，谢谢楼主分享

Lin-Ye 发表于 2015-2-16 10:34:01

好东西，谢谢楼主分享
页: 1 2 [3]
查看完整版本: 《零基础入门学习Delphi》029 - 课件+典型例题源代码