【delphi开源代码栏目提醒】:网学会员鉴于大家对delphi开源代码十分关注，论文会员在此为大家搜集整理了“dy216.pas”一文，供大家参考学习

    unit dy216;
    
    interface
    
    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ExtCtrls, StdCtrls, jpeg;
    
    type
      TForm1 = class(TForm)
        Timer1: TTimer;
        BtnStart: TButton;
        BtnStop: TButton;
        Image1: TImage;
        procedure Timer1Timer(Sender: TObject);
        procedure BtnStartClick(Sender: TObject);
        procedure BtnStopClick(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;
    
    var
      Form1: TForm1;
    
    implementation
    
    {$R *.dfm}
    
    procedure TForm1.Timer1Timer(Sender: TObject);
    begin
      flashwindow(handle,true);
    end;
    
    procedure TForm1.BtnStartClick(Sender: TObject);
    begin
      Timer1.Enabled:=true;
    end;
    
    procedure TForm1.BtnStopClick(Sender: TObject);
    begin
      Timer1.Enabled:=false;
    end;
    
    end.
    

上一篇：dy214.pas
下一篇：扛起年轻化大旗，哈弗F系玩转行业新风潮