Закрытие программы

[nikityan]

Добрый день. Имею программу, типа диспетчера задач, написал на делфи. У программы есть свойства скрывать форму и в нужный момент открываться. Но, как сделать чтоб по нажатию на крестик форма делала hide; (скрылась)? И как отличать события формы onclose и oncloseqwery?

[Stilet]

Ну дык hide это метод формы. Его и вызывай в OnCloseQuery.
Или там есть параметр Action кажись. Задавай ему в этом событии значение caHide.

[Вадим Мошев]

И как отличать события формы onclose и oncloseqwery?

oncloseqwery - это запрос закрытия формы, то есть что происходит, когда мы пытаемся закрыть форму. Можно сделать и так, чтобы форма не закрывалась по нажатию на крестик.
onclose - это то, что просиходит, когда разрешение на закрытие получено и форма закрывается.

[[MoNAMur]]

Скрытие формы при нажатии на крестик в правом верхнем углу, если я правильно понял вопрос

procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action := caHide;
end;

[nikityan]

спасибо .

[nikityan]

Но код что то не работает

[phomm]

Покачаю телепатию :

Выберите в объектном инспекторе нужную Вам форму.
Перейдите на вкладку события/Events , найдите там Onclose и щёлкните его дважды.
В появившейся заготовке кода введите

Сообщение от [MoNAMur]

Action := caHide;

Компилируйте и проверяйте работу.

Если я неправ, приведите код, и впредь запомните - если не работает что-то или показывает ошибку, и Вы, вместо того, чтобы разобраться самому, ищите ответа на форуме, то прикрепляйте код, как вы делаете и текст ошибки (с отметкой в коде, куда показывает компилятор об ошибке).

[nikityan]

Так программа просто закрывается.

[nikityan]

Action := caNone;
Hide; спасибо, нашёл, вот код