غير فعال کردن دکمه بستن فرم برنامه

procedure TForm1.FormCreate(Sender: TObject); var hMenuHandle : HMENU; i:Integer; begin hMenuHandle := GetSystemMenu(handle, FALSE); if (hMenuHandle <> 0) then begin DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND); i := GetMenuItemCount(hMenuHandle)-1; if i > -1 then DeleteMenu(hMenuHandle,i,MF_BYPOSITION); end; end;
/ 1 نظر / 37 بازدید
mina

man daneshjoo reshte computeram age mishe ta ghabl az rooze shanbeh in barname ke migam vasam send konin too my computer ghesmate bala rast click ke mikonin akharin gozine be name customize... hast ono bezanin mikhjam be vasile delphi formi tarahi konam ke add,remove,move up,move down dashte bashe mesle on sherkle age mishe lotfan vasam ta ghabl az shanbeh send konin mer30 age mikhain send konin be id off bedin lotfan mer30 movafagh bashin site bahali hast bye