| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Закрытие окон [D6, WinXP]

webpauk ©   (2006-02-02 19:55:00) 

При завершении программы надо проверить закрыты ли все окна, созданные след. образом: TForm3.Create(Form3)
при этом каждое окно при создании:
procedure TForm3.CreateParams(var Params :TCreateParams);
begin
 inherited CreateParams(Params);
 Params.ExStyle := Params.ExStyle or WS_Ex_AppWindow;
end;


---

Desdechado   (2006-02-02 21:46:00) [1]

> все прочие формы наследуют Tform3
тогда это уже другой класс
type TForm3New = class( TForm3 )

> ну и куда приткнуть указатель?
указатель := TForm3.Create(Form3);
 with указатель do
 begin
    Caption:=ffFrom;
    WindowState:=wsMinimized;
 end;

> как восстановить форму из минимизированного положения?
так же, как и сворачивал
WindowState:=wsNormal;

> sendmessage(H1, wm_Syscommand, sc_restore, 0) - не фурычит
Не мешай в кучу WinAPI и VCL. Начал на VCL, пользуйся ей. А WinAPI только при крайней необходимости.

---

webpauk   (2006-02-02 20:43:00) [2]

> как такоме окно восстановить из свернутого вида?
> sendmessage(H1, wm_Syscommand, sc_restore, 0) - не фурычит

также не работает
ShowWindow(H1, sw_restore);
SetWindowPos(H1, HWND_TOP, 100, 100, 100, 100,SWP_SHOWWINDOW);

---

webpauk   (2006-02-02 20:28:00) [3]

с закрытием разобрался.
как восстановить форму из минимизированного положения?

---

webpauk   (2006-02-02 20:19:00) [4]

  with TForm3.Create(Form3) do
  begin
     Caption:=ffFrom;
     WindowState:=wsMinimized;
  end;

ну и куда приткнуть указатель?

---

webpauk   (2006-02-02 20:11:00) [5]

> кстати, подозрительное вот это:
> TForm3.Create(Form3)
> т.е. есть одна Form3, которая является Owner для всех прочих
> подобных ей?

все прочие формы наследуют Tform3? имея при этом свои особенности

---

Desdechado   (2006-02-02 20:08:00) [6]

не проще ли хранить указатели на созданные формы
p1:=TForm3.Create(Application);
а потом вызывать им
p1.Release;
и проверять ничего не надо

кстати, подозрительное вот это:
TForm3.Create(Form3)
т.е. есть одна Form3, которая является Owner для всех прочих подобных ей?

---

webpauk   (2006-02-02 19:58:00) [7]

и еще:
такие окна нахожу:
var
  H1: HWND;
begin
  H1:=FindWindow('TForm3', nil);
end;
как такоме окно восстановить из свернутого вида?
sendmessage(H1, wm_Syscommand, sc_restore, 0)- не фурычит

---

Наверх