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
Postingan selanjutnya; Contoh Kode Program Delphi 7 Pada Tombol Close Add Save Edit dan Delete Terbaru 2015
CAPSA (Cara Apa Saja) Informasi Download Lagu dan Proxy Free Full Version Blogger