Cara Membuat Efek Sensitif Pada Minimize dan Close di Delphi 7

Kali ini Akan dibahas Seputar Cara Membuat Efek Sensitif Pada Minimize dan Close di Delphi 7 dan sebelumnya juga sudah dibahas seputar Cara Mengosongkan Tulisan Text Pada Komponen Edit Delphi 7 ok efek sensitif yang dimaksud disini adalah ketika mouse anda berapa pada tombol minimize maka tanpa anda klik pun maka aplikasi akan minimize dengan sendiri dan itulah maksudnya ok dan dibawah adalah contoh listing programnnya dan silahkan kembangkan kembali.

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;
  zonksel:Boolean;
implementation

{$R *.dfm}
procedure TFormSensitive.sens(var Msg:TWMNCHitTest);
begin
 inherited;
 if zonksel=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
zonksel:=True;
end;

end.

Hanya Itu Saja ga informasi seputar Cara Membuat Efek Sensitif Pada Minimize dan Close di Delphi 7 Terbaru 2015 semoga apa yang telah disampaikan bermanfaat dan selamat menunggu bulan suci ramadahan 1436 H -2015 M.

Postingan selanjutnya; Contoh Kode Program Delphi 7 Pada Tombol Close Add Save Edit dan Delete Terbaru 2015