घर
Top.Mail.Ru Yandeks.Metrika
फोरम: "विनएपीआई";
वर्तमान संग्रह: 2002.07.01;
डाउनलोड करें: [xml.tar.bz2];

नीचे

क्रॉस को दबाकर (प्रोग्राम को बंद करना) इसी तरह की शाखाएँ खोजें


heruvim4ik   (2002-04-26 20:43) [0]

Мне нужно, чтоб при нажатии на крестик, прога не закрывалась, а выполнялось другое действие, мною прописанное

अग्रिम में आभारी



Doom   (2002-04-26 20:54) [1]

Form.onClose घटना



Song   (2002-04-26 20:55) [2]

1. onCloseQuery:
CanClose:=False;
Ваши действия.
2. onClose
Action:=caNone;
Ваши действия
3. WM_SYSOMMAND
wParam=SC_CLOSE
Ваши действия

Достаточно? :)



heruvim4ik   (2002-04-26 21:09) [3]

Мля! Здорово, конечно, но теперь возникает другой вопрос:
как её(прогу) ЗАКРЫТЬ ПО-ЧЕЛОВЕЧЕСКИ?



Doom   (2002-04-26 21:16) [4]

А тебе как написали? По- орангутангски что ли?



Song   (2002-04-26 21:37) [5]

1.Поставь булевскую переменную в обработчик.
2.Application.Terminate - обработчики onClose* не обрабатываются.
3.WM_SYSCOMMAND, SC_CLOSE по сути повторяет 2 шаг.



VuDZ   (2002-04-26 23:39) [6]

заведи флажёк глобальный типа bCanClose := false, и проверяй его перед закрытием



Gayrus   (2002-04-27 10:01) [7]

Если очень надо могу дать компонент помещает свою кнопку к стандартным, сделаешь рисунок крестика и всё путём. P.S. Сам долго мучался



Atrem   (2002-04-27 13:01) [8]

закрывать можешь так
पोस्टक्विटेमस (1);



heruvim4ik   (2002-04-28 00:00) [9]

Ещё один вопрос...
Сутьт та же, только теперь не крестик, а мнопка minimize



Song   (2002-04-28 10:04) [10]

TApplication.onMinimize
WM_SYSCOMMADND, SC_MINIMIZE



cok   (2002-04-28 13:54) [11]

2 Doom ©, Song ©
Вам же сказано:
>> при нажатии на крестик, прога не закрывалась, а выполнялось >>другое действие, мною прописанное
А вы что делаете? (наверно забыли, что еще есть Alt+F4)




Song   (2002-04-28 15:05) [12]

cok © (28.04.02 13:54)
1.Можно подумамать что CanClose не поможет для Alt+F4. Вы прежде чем говорить, уважаемый, просто проверьте.
2.Мы всё сказали правильно. Прога не убивается, а в обратчике onClose* выполняется его код.

आप किस बारे में बात कर रहे हैं?



cok   (2002-04-28 15:53) [13]

> गीत ©
>Можно подумамать что CanClose не поможет для Alt+F4.
Вот именно, что поможет, а человек просил, чтобы помогало только при нажатии на крестик!( Мне нужно, чтоб при нажатии на крестик, прога не закрывалась, а выполнялось другое действие, мною прописанное)




Song   (2002-04-28 22:02) [14]

2cok © (28.04.02 15:53)
Давайте не будем придираться к пониманию вопроса. Автор получил уже ответ, который его устроил и мало того, вероятно, он уже всё сделал, а Вы всё ещё деферамбы разводите. Будьте проще...



Вадим02   (2002-05-03 06:21) [15]

Вообще-то в некоторых странах,например в USA, нарушение
стандарта карается по закону!Если это идея-фикс, тогда
через API необходимо зайти в раздел формирования формы
и навести там свой порядок.



Керик   (2002-05-03 10:35) [16]

यहां यहां है:
...
procedure GetMinimize(var Message: TMessage); message WM_SYSCOMMAND;
...
procedure GetMinimize(var Message: TMessage);
begin
if Message.wParam = SC_MINIMIZE then
begin
{Запишешь, чё надо выполнить при минимизации.
если после этого надо свернуться, вставь Inherited;}
end;
end;



पन्ने: 1 पूरी शाखा

फोरम: "विनएपीआई";
वर्तमान संग्रह: 2002.07.01;
डाउनलोड करें: [xml.tar.bz2];

ऊपर





मेमोरी: 0.59 एमबी
समय: 0.034 c
8-1106
साशा
2002-02-20 17:40
2002.07.01
तकिया चित्र


3-888
एलेक्स दौड़ा
2002-06-07 12:20
2002.07.01
ऑनफिल्टरकार्ड पर काम नहीं कर रहा है


6-1124
chernoruk
2002-04-20 13:22
2002.07.01
कंपनी के नाम और आईपी पते के बीच अंतर?


3-877
रेल
2002-06-06 09:24
2002.07.01
धूर्त अनुरोध


3-892
Filat
2002-06-07 12:02
2002.07.01
ODBC कनेक्ट त्रुटियां क्यों होती हैं?





अफ्रीकी अल्बानियन अरबी भाषा अर्मेनियाई आज़रबाइजानी बस्क बेलारूसी बल्गेरियाई कैटलन सरलीकृत चीनी) चीनी पारंपरिक) क्रोएशियाई चेक डेनिश डच अंग्रेज़ी एस्तोनियावासी फिलिपिनो फिनिश फ्रेंच
गैलिशियन् जॉर्जियाई जर्मन यूनानी हाईटियन यहूदी हिंदी हंगरी आइसलैंड का इन्डोनेशियाई आयरिश इतालवी जापानी कोरियाई लात्वीयावासी लिथुआनियाई मेसीडोनियन मलायी मोलतिज़ नार्वेजियन
फ़ारसी पोलिश पुर्तगाली रोमानियाई रूसी सर्बियाई स्लोवाक स्लोवेनियाई स्पेनिश स्वाहिली स्वीडिश थाई तुर्की यूक्रेनी उर्दू वियतनामी वेल्श यहूदी बंगाली बोस्नियाई
सिबुआनो एस्पेरांतो गुजराती हौसा हमोंग ईग्बो जावानीस कन्नड़ खमेर लाओ लैटिन माओरी मराठी मंगोलियन नेपाली पंजाबी सोमाली तामिल तेलुगु योरूबा
ज़ुलु
Английский Французский Немецкий Итальянский Португальский Русский Испанский