![]() |
|
|
|
|
#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). |