Hola.
Pude comprobar que las opciones de los mensaje
#2 y
#3 fallan con combinaciones de teclas como
WIN + D que hacen que el form se minimize. (Y debe ser algo como eso lo que están haciendo...)
Pero complementándo cualquiera de ellas con este código, creo que te va a resolver el problema:
Código Delphi
[-]
procedure TForm1.FormCreate(Sender: TObject);
begin
FormStyle:= fsStayOnTop; end;
procedure TForm1.FormShow(Sender: TObject);
begin
SetwindowLong(GetWindow(Handle, GW_OWNER), GWL_STYLE, 0);
SetwindowLong(GetWindow(Handle, GW_OWNER), GWL_EXSTYLE, 0);
OnShow:= nil;
end;
Probalo y nos comentas.
Saludos