Закрытие окон

← →
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);

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

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