untfrmmain.pas

来自「类似雷达图的程序,用delphi写的,」· PAS 代码 · 共 36 行

PAS
36
字号
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.

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?