Mengubah Transparansi Form

Pbm Wanted No comments

Delphi versi 6 keatas sudah menyediakan fungsi/properti untuk mengubah transaparansi form.
nilai ini mulai dari terang(transparan) sampai gelap(tidak transparan). Nilai gelap dan terang ini ditampung dalam sebuah properti AlphaBlendValue , Sedangkan untuk mengaktifkan fungsi ini ada pada properti Alphablend=True.
Untuk simulasinya kita gunakan sebuah komponen TrackBar, dengan komponen ini kita akan mengubah nilai alphablend dengan menggerakan TrackBar tersebut.
berikut listing programnya
unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    TrackBar1: TTrackBar;
    Label1: TLabel;
    procedure TrackBar1Change(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.TrackBar1Change(Sender: TObject);
begin
form1.AlphaBlend:=true;
form1.AlphaBlendValue:=TrackBar1.Position;

end;

procedure TForm1.FormShow(Sender: TObject);
begin
TrackBar1.Max:=255;
TrackBar1.Position:=230;
end;

end.
Posted in:

0 komentar:

Posting Komentar