《零基础入门学习Delphi》029 - 课件+典型例题源代码

h1006272147

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

h1006272147

突然间弄明白了。激动人心，无法言表！

1. procedure TForm1.FormCreate(Sender: TObject);
   
2. begin
   
3.   Form1.AlphaBlend:=True;
   
4. end;
   
5. procedure TForm1.TrackBar1Change(Sender: TObject);
   
6. begin
   
7.   lbl3.Caption:=IntToStr(TrackBar1.Position)+'%';
   
8.   Form1.AlphaBlendValue:=Byte(TrackBar1.Position*255 div TrackBar1.Max);
   
9. end;

复制代码

MLK

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

ygrong_2008

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

Lin-Ye

好东西，谢谢楼主分享

Lin-Ye

好东西，谢谢楼主分享