untfrmmain.pas

类似雷达图的程序,用delphi写的,

unit untFrmMain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls,
  untFadeOut;

type
  TfrmTest = class(TForm)
    imgSrc: TImage;
    btnStart: TButton;
    procedure btnStartClick(Sender: TObject);
  private
    { Private declarations }
    FadeThread: TFadeThread;
  public
    { Public declarations }
  end;

var
  frmTest: TfrmTest;

implementation

{$R *.dfm}

procedure TfrmTest.btnStartClick(Sender: TObject);
begin
  if (FadeThread = nil) then
    FadeThread:= TFadeThread.Create(imgSrc.Picture.Bitmap, Self.Canvas, 60);
end;

end.