مرکز تخصصی دلفی

یک دکمه در فرم ایجاد کنید و از کد زیر استفاده کنید. با کلیک بر روی این دکمه کاربر دیگر نمی توانید بر روی دکمه ی بستن پنجره کلیک کند و این دکمه Disable می شود.

//© 2005 koosha system Software http://delphi-center.blogfa.com
procedure TForm1.Button1Click(Sender TObject);
var
  Flag UINT;
  AppSysMenu THandle;
begin
//© 2005 koosha system Software http://delphi-center.blogfa.com
  AppSysMenu=GetSystemMenu(Handle,False);
  Flag=MF_GRAYED;
  EnableMenuItem(AppSysMenu,SC_CLOSE,MF_BYCOMMAND or Flag);
end;
//© 2005 koosha system Software http://delphi-center.blogfa.com