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

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

好东西，谢谢楼主分享

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