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