Z jednej formy wywołuję drugą, która zawiera nast. CreateParams:
procedure TForm2.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do begin
ExStyle := ExStyle or WS_EX_APPWINDOW;
WndParent := GetDesktopwindow;
end;
end;
Jednak występują dwa problemy:
- Pierwsza forma jest chowana {[EDIT] W momencie tworzenia drugiej oczywiście.} pod wszystkie otwarte okna, na wierzchu pozostaje tylko nowa.
- Kiedy mam nową formę nad pierwszą i w nowej wyświetli się Hint, to aplikacja aktywuje pierwszą formę.
[EDIT:]
Drugi problem udało mi się wyeliminowac poprzez modyfikację klasy THintWindow... :)
Próbowałem eksperymentować z różnymi parametrami, ale nie udało mi się znaleźć rozwiązania problemu.