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

源码开发语言/平台
当前位置：首页 > 源码/资料 > Delphi控件源码 > 查看源码
Unit22.~pas
资源名称：HIS.rar　[点击查看]
上传用户：fjdqny
上传日期：2016-10-26
资源大小：6299k
文件大小：1k
源码类别：

Delphi控件源码

开发平台：

Delphi

Unit22.~pas：源码内容
  1. unit Unit22;
  3. interface
  5. uses
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7.   Dialogs, jpeg, ExtCtrls, StdCtrls;
  9. type
  10.   TForm22 = class(TForm)
  11.     Image1: TImage;
  12.     Memo1: TMemo;
  13.     Button1: TButton;
  14.     Label1: TLabel;
  15.     Timer1: TTimer;
  16.     procedure Button1Click(Sender: TObject);
  17.     procedure FormCreate(Sender: TObject);
  18.     procedure Timer1Timer(Sender: TObject);
  19.   private
  20.     { Private declarations }
  21.   public
  22.     { Public declarations }
  23.   end;
  25. var
  26.   Form22: TForm22;
  27.   flag:integer;
  28. implementation
  30. {$R *.dfm}
  32. procedure TForm22.Button1Click(Sender: TObject);
  33. begin
  34. form22.Close;
  35. end;
  37. procedure TForm22.FormCreate(Sender: TObject);
  38. begin
  39.  flag:=1;
  40. end;
  42. procedure TForm22.Timer1Timer(Sender: TObject);
  43. begin
  44.  if (flag=1) and (form22.Label1.Left <=0) then
  45.    flag:=2;
  46.  if (flag=2) and (form22.Label1.left+form22.Label1.Width >=form22.Width ) then
  47.    flag:=1;
  48.  case flag of
  49.    1: form22.Label1.Left :=form22.Label1.Left-10;
  50.    2: form22.Label1.Left :=form22.Label1.Left+10;
  51.  end;
  52. end;
  54. end.