实时的透明窗体

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

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