Delphi Dünyası Facebook'ta

Kodbank İndir

! CODEBANK 2012 !

İNDİRMEK&DETAYLI BİLGİ ALMAK İÇİN BURAYI TIKLAYINIZ.

Gönderen Konu: Form Menüsündeki Close butonunu kullanılamaz yapan kod  (Okunma sayısı 1578 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı Emre

  • Global Moderatör
  • *****
  • İleti: 74
  • Rep: +6/-0
uses kısmına Windows unit' i eklenmiş olmalı
 
Kod:  (Unknown Language)
  1. procedure MenudenKapatamaz(Sender: TObject);
  2. Var
  3.   Sistem_Menu :Integer;
  4.   Al :LongBool;
  5. begin
  6.   Sistem_Menu := GetSystemMenu(Self.Handle, False);
  7.   Al := RemoveMenu(Sistem_Menu, 6, MF_BYPOSITION);
  8.   Al := RemoveMenu(Sistem_Menu, 5, MF_BYPOSITION);
  9. end;
  10.  

« Son Düzenleme: 19 Haziran 2009 02:11:01 by Kocaturk »