Mengatasi Error Minimize On Taskbar Delphi 7

Nah hari ini saya mau membahas error minimize yang terjadi pada Delphi 7. Dulu saya juga pernah mengalami ini, saya mencari di berbagai forum dan tidak ada yang berhasil. Termasuk di http://stackoverflow.com/questions/6228966/how-to-minimize-a-window-to-the-taskbar-i-e-not-iconify. Saat saya mengikuti tips yang diberikan, saya malah mendapat problem baru seperti ini :


Namun akhirnya saya menemukan salah satu posting yang sangat membantu disalah satu blog dan berhasil namun masih kurang memuaskan. Setelah mencari lagi dan lagi akhirnya ketemu juga, blog yang kurang terkenal dangan nama yang sulit diingat. Maaf ya saya lupa! Barang kali si pemilik blognya mampir kesini saya minta maaf karena telah melupakan blog anda yang telah berjasa membantu pembuatan posting ini.

Caranya cukup sederhana, tinggal menambahkan code dibawah ini dan letakan diselain MainForm ( Form Utama ) misal seperti Form2, Form3 dan seterusnya :

1. Letakan ini dibawah tulisan private.

    procedure WMSyscommand(var Msg: TWmSysCommand); message WM_SYSCOMMAND;

2. Dan Tambahakan kode tepat dibawah tulisan {$R *.dfm} dan ubah Form2 sesuai nama Form anda.

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;

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
  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.

Sekian dari saya semoga bermanfaat dan terus semangat buat program yang anda sukai dan berguna untuk kehidupan mendatang. Yang ingin bertanya silakan komen dan sampai jumpa diposting berikutnya.