Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.07.01;
Скачать: CL | DM;

Вниз

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

 
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)



 
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]

>Song ©
>Можно подумамать что 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;
Скачать: CL | DM;

Наверх




Память: 0.5 MB
Время: 0.01 c
3-876
Rail
2002-06-06 09:52
2002.07.01
Fox Pro


14-1190
Snap
2002-05-28 14:03
2002.07.01
СРОЧНО НУЖДАЮСЬ В ПОМОЩИ!!!!!!!!!!!!!!!!!!


1-994
Tutov Roman
2002-06-12 14:09
2002.07.01
Картинка в StatusBar


4-1257
Ptr
2002-05-01 10:32
2002.07.01
Можно ли поменять форму курсора в чужом приложении?


3-906
Sour
2002-06-07 16:35
2002.07.01
Сохранение в Blob поля