![]() |
|
#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; |
#2
|
|||
|
|||
![]() Ну, это ты не окно создаешь, а меняешь его стиль.
Что бы другое окно было можно показать, у него родителя надо сделать десктоп. Пользуй метод CreateParented(0). Ну и в догонку. Посмотри у компонента ApplicationEvents (на вкладке Advanced). |