Memberi Efek Sensitif pada Tombol Minimize dan Close

Halo delphier kali ini saya akan sharing cara Memberi efek sensitive pada tombol minimize dan close form delphi, agar temen - temen tidak perlu repot - repot lagi  mengeklik tombol minimize dan close untuk mengecilkan dan menutup form  ketika menjalankan program. dengan cara ini kita hanya perlu melewati tombol - tombol tersebut maka secara otomatis form akan mengecil atau menutup. Yang perlu dilakukan disini hanyalah  memanggil fungsi message untuk mengecilkan atau menutup form dan menambahkan sedikit listing program pada event OnActivate.

Form Sensitive

Okay untuk mempercepat waktu maka saya akan langsung share listing yang akan digunakan sebagai berikut:

unit Unit1;

interface

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

type
  TFormSensitive = class(TForm)
    procedure FormActivate(Sender: TObject);
  private
     procedure sens(var Msg:TWMNCHitTest); message
     wm_nchittest;
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormSensitive: TFormSensitive;
  krs:Boolean;
implementation

{$R *.dfm}
procedure TFormSensitive.sens(var Msg:TWMNCHitTest);
begin
 inherited;
 if krs=true then
 begin
  if msg.Result=windows.HTMINBUTTON then
  Application.Minimize
 else
  if Msg.Result=windows.HTCLOSE then close;
 end;
end;

procedure TFormSensitive.FormActivate(Sender: TObject);
begin
krs:=True;
end;

end.

Nah gimana temen - temen cukup singkat dan  listingnya cukup singkat dan bisa dipahamikan? Karena saya disini sekedar share maka saya harap jika ada kekurangan temen bisa berbagi kritik dan saran disini. Sekian Sangkyu Delphier........