unit1.pas

来自「Delphi7应用编程150例 附书源码」· PAS 代码 · 共 42 行

unit Unit1;

interface

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

type
  TfrmMain = class(TForm)
    Image1: TImage;
    TrackBar1: TTrackBar;
    procedure FormCreate(Sender: TObject);
    procedure TrackBar1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmMain: TfrmMain;

implementation

{$R *.dfm}

procedure TfrmMain.FormCreate(Sender: TObject);
begin
    self.AlphaBlend:=true;
    self.TrackBar1.Min:=0;
    self.TrackBar1.Max:=255;
    self.TrackBar1.Frequency:=25;
end;

procedure TfrmMain.TrackBar1Change(Sender: TObject);
begin
    self.AlphaBlendValue:=self.TrackBar1.Max-self.TrackBar1.Position;
end;

end.