![]() |
|
#1
|
|||
|
|||
![]() Доброе время суток! Проблема такова. Создаю окно, при создании окна создаю другое окно
Код:
procedure TForm2.CreateParams(var Params: TCreateParams); begin inherited CreateParams(Params); Params.WindowClass.Style := Params.WindowClass.style or $20000{ or CS_SAVEBITS}; Params.Style:= WS_POPUP; Params.ExStyle:= WS_EX_TOOLWINDOW or WS_EX_TOPMOST or WS_EX_NOACTIVATE; end; |