Скачать: CL | DM;

Закрытие окон   Найти похожие ветки 

← →
webpauk   (2006-02-02 19:55) [0]

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


---

← →
webpauk   (2006-02-02 19:58) [1]

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

---

← →
Desdechado ©   (2006-02-02 20:08) [2]

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

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

---

← →
webpauk   (2006-02-02 20:11) [3]

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

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

---

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

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

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

---

← →
webpauk   (2006-02-02 20:28) [5]

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

---

← →
webpauk   (2006-02-02 20:43) [6]

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

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

---

← →
Desdechado ©   (2006-02-02 21:46) [7]

> все прочие формы наследуют 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 только при крайней необходимости.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.059 c