Пробовал первым способом вот так
Код:
procedure TForm1.Timer1Timer(Sender: TObject);
var form3:TForm;
begin
try
begin
form3 := form2.CreateParented(form2.Handle);
form3.Show;
end;
finally
end;
end;
Ничего не вышло: кнопку на панели задач не создает, при сворачивании первой формы вторая (Form3 в нашем случае) не выскакивает.
Пробовал вторым способом и добавил во второй модуль код
Код:
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
Params.ExStyle := Params.ExStyle Or WS_EX_TOPMOST Or WS_EX_TOOLWINDOW Or WS_EX_NOACTIVATE And (Not WS_EX_APPWINDOW);
Params.WndParent := GetDesktopWindow;
inherited CreateParams(Params);
end;
В спецификации написано, что он выполняется перед тем, как создать форму (в нашем случае Form2). Однако на точку останова не реагирует, следовательно, не выполняется. В чем ошибка?