VPF::Отмена закрытия формы - Форум программистов

Rondo

Дата 5.7.2006, 07:36 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 154
Регистрация: 24.2.2006
Где: там..

Репутация: нет
Всего: нет

Столкнулся с вопросом smile

Как можно отменить закрытие формы? Тоесть я хочу чтоб при нажатии кнопки закрыть она сворачивалась в трей.
Я еще использую компаненту для сворачивания в трей, получается мне просто надо как то отменить закрытие и активировать мою компаненту.

Это сообщение отредактировал(а) Rondo - 5.7.2006, 07:39

--------------------

Начинающий кодер

ShadeSt

Дата 5.7.2006, 07:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 256
Регистрация: 9.8.2005
Где: Россия, г. Ставро поль

Репутация: нет
Всего: 7

Код


procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := False;
end;

--------------------

It's nice to be importand, but it's more importand to be nice © Scooter

Guedda

Дата 5.7.2006, 07:51 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

А можно и так:

Код


procedure TForm1.FormClose(Sender : Tobject; Action : TCloseAction);
begin
  Action := caNone; //Чтобы закрыть, необходимо написать caFree;
end;

--------------------

Ll 2

Rondo

Дата 5.7.2006, 08:14 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 154
Регистрация: 24.2.2006
Где: там..

Репутация: нет
Всего: нет

Guedda, извени за то что я такой ламер smile

Как мне caFree сделать чтоб она работала не в FormClose а в Button OnClick?? smile

чет у меня неполучается...

--------------------

Начинающий кодер

Guedda

Дата 5.7.2006, 08:18 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Если ты хочешь, чтобы форма просто так не закрывалась, а закрывалась только по нажатию на кнопку, то вот так:

Код



var
  CClose : boolean = false;

procedure TFOrm1.Button1Click(Sender : TObject);
begin
  CClose := true;
  Form1.Close;
end;

procedure TForm1.FormClose({...});
begin
  if CClose then Action := caFree else Action := caNone;
end;

Добавлено @ 08:19
По привычке, как написал пост, вместо Ctrl+Enter нажал Ctrl+F9 =)
Извиняюсь за оффтоп...

--------------------

Ll 2

Rondo

Дата 5.7.2006, 08:31 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 154
Регистрация: 24.2.2006
Где: там..

Репутация: нет
Всего: нет

Спасибо! Все работает smile

--------------------

Начинающий кодер

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »