VPF::MDI окна - Форум программистов

Winprogrammer

Дата 4.1.2007, 13:17 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 141
Регистрация: 23.3.2006
Где: ::Россия.РСО-Алан ия.Владикавка

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

Доброго времени суток!!!!

Проблема!!!

Есть список всех дочерних форм (TListView) по которым пользователь производит навигацию по дочерним формам. Мне нужно, что бы при клике по кнопке "закрыть" происходило скрытие формы от глаз пользователя. Пробовал через Visible:=false, но ругается последними словами: немогу сделать дочернюю форму невидимой!!! Пробовал через Hide - то же самое!!! :-(

Заранее спасибо за помощь.

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

Я не понял Вашего вопроса, но я Вам на него отвечу…-----------

Uploading файлов без гемороя - это просто!!!

Winprogrammer.ifolder.ru

Guedda

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

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

Загрузка ...

Подрывник

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

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

Код


WindowState := wsMinimized;

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

Ll 2

Winprogrammer

Дата 4.1.2007, 14:36 (ссылка)

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

Загрузка ...

Шустрый

Цитата(Guedda @ 4.1.2007, 14:08)

Код


WindowState := wsMinimized;

Не то. Это равносильно

Код


procedure TFTemplate.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action:=caMinimize;
end;

Нужно чтобы форма физически существовала, но была скрыта и пользователь её не видел.

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

Я не понял Вашего вопроса, но я Вам на него отвечу…-----------

Uploading файлов без гемороя - это просто!!!

Winprogrammer.ifolder.ru

Злоумышленник

Дата 4.1.2007, 15:40 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 51
Регистрация: 3.9.2006

Репутация: -1
Всего: -3

так просто закрывай дочернюю форму (Close), без free - вот и всё

Winprogrammer

Дата 4.1.2007, 18:41 (ссылка)

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

Загрузка ...

Шустрый

Цитата(Злоумышленник @ 4.1.2007, 15:40)

так просто закрывай дочернюю форму (Close), без free - вот и всё

Не так-то всё просто. По умолчанию стоит при нажатии на кнопку закрытия сворачивать форму в нижнюю часть экрана. А если в событии закрытии поставить

Код

    
procedure TFTemplate.FormClose(Sender: TObject; var Action: TCloseAction);
begin
 Action:=caNone;
end;

ничего происходить не будет. есть ещё Action:=caHide но ругается то же самое:немогу сделать дочернюю форму невидимой!!! :-(

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

Я не понял Вашего вопроса, но я Вам на него отвечу…-----------

Uploading файлов без гемороя - это просто!!!

Winprogrammer.ifolder.ru

Guedda

Дата 4.1.2007, 22:25 (ссылка)

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

Загрузка ...

Подрывник

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

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

Попробуй:

Код


ShowWindow(YourForm.Handle, SW_HIDE)

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

Ll 2

Злоумышленник

Дата 4.1.2007, 23:46 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 51
Регистрация: 3.9.2006

Репутация: -1
Всего: -3

попробуй:

Код


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

Код


procedure TfmMainMdi.Button1Click(Sender: TObject);
begin
  fmChildMdi.Show;
  fmChildMdi.FormStyle := fsMDIChild;
end;

Добавлено @ 23:47
а никто не знает, как на этом форуме сменить ник?

Winprogrammer

Дата 5.1.2007, 11:17 (ссылка)

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

Загрузка ...

Шустрый

Цитата(Злоумышленник @ 4.1.2007, 23:46)

попробуй:

Код


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

Код


procedure TfmMainMdi.Button1Click(Sender: TObject);
begin
  fmChildMdi.Show;
  fmChildMdi.FormStyle := fsMDIChild;
end;

Добавлено @ 23:47
а никто не знает, как на этом форуме сменить ник?

Благодарю. Все прекрасно работает. :-)

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

Я не понял Вашего вопроса, но я Вам на него отвечу…-----------

Uploading файлов без гемороя - это просто!!!

Winprogrammer.ifolder.ru

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