Buat Form Transparan Saat Di Drag/Move Delphi

Lanjutan posting kemarin, walau masih sama tujuannya namun berbeda caranya. Kalo posting sebelumnya membuat form transparan saat dimove mengunakan alphaskin, yang ini tidak mengunakan alphaskin. Hasilnya juga sama, namun yang membedakan hanyalah yang ini tidak mengunakan skin apapun dan dapat berfungsi baik mengunakan komponen skin seperti alphaskin atau tidak mengunakan komponen skin sama sekali seperti screenshot diatas.

CARA MEMBUAT FORM TRANSPARENT SAAT DI DRAG/MOVE :

1. Jalankan Delphi seperti biasanya.

2. Tambahkan 2 komponen Timer, dan atur kedua Timer tersebut dengan settingan yang sama.
Ubah Enable dari True menjadi False dan ubah Interval menjadi 1.

3. Tambahkan kode dibawah ini tepat dibawah tulisan private:

    procedure OnMove(var Msg: TWMMove); message WM_MOVE;
    procedure WMExitSizeMove(var Msg: TMessage); message WM_EXITSIZEMOVE;

4. Lalu tambahkan juga kode ini dibawah {$R *.dfm}:

procedure TForm1.OnMove(var Msg: TWMMove);
begin
  Timer1.Enabled:=True;
end;

procedure TForm1.WMExitSizeMove(var msg: TMessage);
begin
  Timer2.Enabled:=True;
end;

5. Klik dua kali Form1 dan tambahkan kode ini diantara begin dan end:

Timer2.Enabled:=true;

6. Klik dua kali pada Timer1, tambahakan kode dibawah ini:

if not (form1.AlphaBlendValue=175) then
form1.AlphaBlendValue:=form1.AlphaBlendValue-5
else Timer1.Enabled:=False;

7. Klik dua kali juga di Timer2 dan tambahkan kode ini:

if not (form1.AlphaBlendValue=255) then
form1.AlphaBlendValue:=form1.AlphaBlendValue+5
else Timer2.Enabled:=False;
if Timer1.Enabled=true then Timer1.Enabled:=false;

8. Run Project. (F9)

Kunci utama animasi effek transparan hanya pada timer berserta kodenya. Selebihnya bisa dipelajari sendiri dan untuk kode diatas yang bewarna itu berarti bisa diubah.

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Timer2: TTimer;
    procedure Timer1Timer(Sender: TObject);
    procedure Timer2Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    procedure OnMove(var Msg: TWMMove); message WM_MOVE;
    procedure WMExitSizeMove(var Msg: TMessage); message WM_EXITSIZEMOVE;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.OnMove(var Msg: TWMMove);
begin
  Timer1.Enabled:=True;
end;

procedure TForm1.WMExitSizeMove(var msg: TMessage);
begin
  Timer2.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if not (form1.AlphaBlendValue=175) then
form1.AlphaBlendValue:=form1.AlphaBlendValue-5
else Timer1.Enabled:=False;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
if not (form1.AlphaBlendValue=255) then
form1.AlphaBlendValue:=form1.AlphaBlendValue+5
else Timer2.Enabled:=False;
if Timer1.Enabled=true then Timer1.Enabled:=false;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
Timer2.Enabled:=true;
end;

end.