Mengatasi Error Minimize On Taskbar Delphi 7

Hai Teman, Kali ini gue mau membahas error minimize pada delphi 7. Dulu gue juga ngalemin kayak gini sampai2 gue prustasi, tapi mugkin juga karena gue orangnya perfectsionis kali yah? jadi cuma gara kurang sedikit saja gue ngambek dan nddak jadi mainin delphi7 gue. What? Kox jadi curhat ngga bener iki, focus, focus, focus temen. Gini maksud gue temean, udah membuat program semaleman eh pas diminimiz nyakut di taskbar bukannya ngilang, lalu gue search di google dan ketemu forum ini http://stackoverflow.com/questions/6228966/how-to-minimize-a-window-to-the-taskbar-i-e-not-iconify Gue ikutin caranya eh malah jadi dua kayak gini :

Pada akhirnya gue ngakal sendiri dan berhasil namun masih kurang memuaskan. setelah mencari berbulan2 akhirnya ketemu juga, disalah satu blog yang kurang terkenal sampe2 gue lupa nama blognya, maaf ya. barang kali si pemilik blognya mampir gue minta maaf karena telah melupakan blog ente yang berjasa bagi gue. Oke langsung saja kita perbaiki errornya, Kalian tinggal menambahkan code dibawah ini yang gue ambil dari form2 gue.

 unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    Image1: TImage;
  private
    { Private declarations }
  procedure WMSyscommand(var Msg: TWmSysCommand); message WM_SYSCOMMAND;
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.WMSysCommand(var Msg: TWmSysCommand);
begin
  case (Msg.CmdType and $FFF0) of
    SC_MINIMIZE:  begin
                    Msg.Result := 0;
                    EnableWindow(Application.Handle, True);
                    Application.Minimize;
                  end;
    else inherited;
  end;
end;

end.

Yang gue beri warna merah itu kode yang terpenting. Sekian dulu dari gue moga saja bermanfaat dan terus semangat buat program yang anda sukai dan berguna untuk kehidupan mendatang Dan Sampai Jumpa Brow!!!