डिफॉल्ट बटन

Question

के साथ एक फॉर्म पर टीएममो में लाइन ब्रेक मेरे पास फ़ायरमॉन्की का उपयोग करके लिखे गए एप्लिकेशन में एक फॉर्म है। उस (मोडल) फॉर्म पर एक ठीक बटन है जिसके लिए मैंने डिफ़ॉल्ट संपत्ति को सही पर सेट किया है। एक ज्ञापन घटक भी है। अब यदि ज्ञापन में टाइप करते समय टाइप दबाएं, तो मेमो में लाइन ब्रेक डालने के बजाय फ़ॉर्म बंद हो जाता है।

मैं क्या हासिल करना चाहता हूं, यह है कि जब दर्ज करें (या शिफ्ट + दर्ज करें या उस तरह की smth) ज्ञापन घटक में दबाया जाता है, तो लाइन ब्रेक दर्ज होता है। अन्य घटकों में, जहां आप लाइन ब्रेक टाइप नहीं कर सकते हैं, मैं अभी भी फॉर्म को बंद करने के लिए एंटर मारना पसंद करूंगा। सबसे अच्छा मैं पाया है अब तक रूपों OnCloseQuery कार्रवाई में निम्न कोड जोड़ रहा है:

if (Focused.GetObject.ClassName = 'TMemo') and (ModalResult = mrOk) then 
begin 
    CanClose := False; 
    Memo := TMemo(Focused.GetObject); 
    Memo.InsertAfter(Memo.CaretPosition, sLineBreak, [TInsertOption.ioMoveCaret, 
    TInsertOption.ioCanUndo]); 
end 
else 
    CanClose := True; 

यह काम करता है, लेकिन अब वहाँ दर्ज करें और लाइन ब्रेक के पहले दिखाई देता से टकराने के बाद एक छोटे से परेशान भी देर है। इसके अलावा मैं समाधान चाहूंगा, जो कम हैकी होगी।

मुझे यह भी इंगित करना चाहिए कि मेरे पास ऐसे फॉर्म भी हैं जिनमें ओके बटन है, लेकिन ज्ञापन घटक नहीं है, हालांकि एक ज्ञापन को अपनी मूल संपत्ति को बदलकर रनटाइम पर उस रूप में स्थानांतरित किया जाएगा।

Answer 1

अपने ज्ञापन के OnEnter, और पीठ में ज्ञापन के OnExit