Selamat Datang di Blog saya hari ini semoga anda tidak kecewa telah berkunjung disini . ..
Di kesempatan Kali ini Tutorial yang akan saya posting adalah tentang Delphi Close Application
Jadi Program berikut adalah program Delphi yang ketika projectnya disclose maka akan tgampil animasi unik yang akan memanjakan mata . . .
Langsung saja Ke TKP, sekarang buat project baru :
Tambahkan 1 timer di form anda.
Setting pada event di form create dan OnCloseQuery
Listing Program Form On Create
//listing
procedure TForm1.FormCreate(Sender: TObject);
begin
tutup := True;
timer1.Enabled := false;
end;
//Listing Di Timer
procedure TForm1.Timer1Timer(Sender: TObject);
var
reg1,reg2 : hrgn;
begin
if tutup = true then
begin
i:=i + 10;
reg1 := createroundrectrgn(0+i,0+i,width-i,height-i,20,20);
setwindowrgn(handle,reg1,true);
end;
if i >= width then
begin
tutup := false;
i := 1;
end;
//Listing di OnClose Query
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
var
reg1 : hrgn;
begin
i := 1;
timer1.Enabled := true;
if MessageDlg('Do U wanna really exit now ?',
mtConfirmation, [mbYes, mbNo], 0) = mrYes then
canclose := true
else
begin
canclose := false;
timer1.Enabled := false;
reg1 := createroundrectrgn(0,0,width,height,0,0);
setwindowrgn(handle,reg1,true);
end;
end;
buar variablenya juga seperti ini ..
{$R *.dfm}
var
tutup : Boolean;
i : integer;
baik setelah anda build kemudian silahkan klik tombol close . .. 
