सिस्टम मेनू के बिना डेल्फी फॉर्म लेकिन बंद बटन

Question

डिफ़ॉल्ट रूप से, BorderStyle = bsSizeable वाले एक फॉर्म में एक सिस्टम मेनू (बाईं ओर) और एक करीबी बटन (दाईं ओर 'एक्स') है। मैं सिस्टम मेनू से छुटकारा पाने और बंद बटन रखना चाहता हूं।

सीमावर्ती संपत्ति मुझे सिस्टम मेनू (biSystemmenu के माध्यम से) को हटाने देता है, लेकिन अब बंद बटन भी चला गया है।

क्या ऐसा करने का कोई तरीका है?

का उपयोग डेल्फी XE

पुनश्च: यह जहाँ तक विंडोज का सवाल है संभव हो जाना चाहिए: IE8 के "InPrivate छनन सेटिंग्स" खिड़की बड़ा है, एक करीबी बटन है और कोई व्यवस्था मेनू है।

Answer 1

मुझे नहीं लगता कि आपके गैर-क्लाइंट क्षेत्र को कस्टम बनाने के बिना ऐसा करने का कोई तरीका है जो ग्लास शामिल होने पर बहुत मुश्किल है।

इस विधि पर विचार करें।

procedure TMyForm.DeleteSystemMenu; 
var 
    SystemMenu: HMenu; 
begin 
    SystemMenu := GetSystemMenu(Handle, False); 
    DeleteMenu(SystemMenu, SC_CLOSE, MF_BYCOMMAND); 
end; 

हाँ, यह प्रणाली मेनू से करीब आइटम से छुटकारा पाने में सफल होता है, लेकिन यह भी बंद करें बटन अक्षम किया जा रहा में परिणाम है। तो ऐसा लगता है कि आप एक के बिना एक नहीं हो सकता है।

Answer 2

BorderStyle := bsSizeToolWin एक्स बटन की थोड़ी अलग उपस्थिति के साथ आप जो चाहते हैं वह करता है।

Answer 3

"सिस्टम मेनू" से आपका शीर्षक शीर्षक बार के बाईं ओर आइकन है? या पॉपअप मेनू दायाँ क्लिक के माध्यम से बुलाया?

यदि यह आइकन है कि आप निकालना चाहते हैं - इस कोड का उपयोग करें: के लिए `BorderStyle = bsDialog` करता ** नहीं ** एक प्रणाली मेनू है क्या की परवाह किए बिना है

const 
    WM_ResetIcon = WM_APP - 1; 

type 
    TForm1 = class(TForm) 
    procedure FormShow(Sender: TObject); 
    protected 
    procedure WMResetIcon(var Message: TMessage); message WM_ResetIcon; 
    end; 

implementation 

procedure TForm1.FormShow(Sender: TObject); 
begin 
    PostMessage(Handle, WM_ResetIcon, 0, 0); 
end; 

procedure TForm1.WMResetIcon(var Message: TMessage); 
const 
    ICON_SMALL = 0; 
    ICON_BIG = 1; 
begin 
    DestroyIcon(SendMessage(Handle, WM_SETICON, ICON_BIG, 0)); 
    DestroyIcon(SendMessage(Handle, WM_SETICON, ICON_SMALL, 0)); 
end;