开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
CkForm.pas
资源名称：delphi.rar　[点击查看]
上传用户：fh681027
上传日期：2022-07-23
资源大小：1959k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

CkForm.pas：源码内容
  1. unit CkForm;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, ExtCtrls, StdCtrls;
  9. type
  10.   TForm1 = class(TForm)
  11.     Shape1: TShape;
  12.     Button1: TButton;
  13.     Button2: TButton;
  14.     Button3: TButton;
  15.     Button4: TButton;
  16.     procedure Button1Click(Sender: TObject);
  17.     procedure Button2Click(Sender: TObject);
  18.     procedure Button3Click(Sender: TObject);
  19.     procedure Button4Click(Sender: TObject);
  20.   private
  21.     { Private declarations }
  22.   public
  23.     { Public declarations }
  24.   end;
  26. var
  27.   Form1: TForm1;
  29. implementation
  31. {$R *.DFM}
  33. uses
  34.   AlphaForm, PlainForm;
  36. procedure TForm1.Button1Click(Sender: TObject);
  37. begin
  38.   Form2.Show;
  39. end;
  41. procedure TForm1.Button2Click(Sender: TObject);
  42. var
  43.   i: integer;
  44. begin
  45.   Form2.AlphaBlendValue := 100;
  46.   Form2.Show;
  47.   for i := 100 to 255 do
  48.   begin
  49.     Form2.AlphaBlendValue := i;
  50.     Application.ProcessMessages;
  51.   end;
  52. end;
  54. procedure TForm1.Button3Click(Sender: TObject);
  55. begin
  56.   Form3.Hide;
  57.   AnimateWindow (Form3.Handle, 2000, AW_BLEND);
  58.   Form3.Show;
  59. end;
  61. procedure TForm1.Button4Click(Sender: TObject);
  62. begin
  63.   Form3.Hide;
  64.   AnimateWindow (Form3.Handle, 3000, AW_CENTER);
  65.   // you can also use AW_HOR_POSITIVE, AW_HOR_NEGATIVE,
  66.   // AW_VER_POSITIVE, or AW_VER_NEGATIVE
  67.   Form3.Show;
  68. end;
  70. end.