Нажатие на крестик (закрытие программы)

← →
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]

закрывать можешь так
postquitmessage(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)

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

Вы вообще о чём?

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

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;

Нажатие на крестик (закрытие программы) Найти похожие ветки