Delphi: Balloon Form with fsStayOnTop not working in Win7

问题

I have an application that uses my own balloon form. This is a non-bordered, fsStayOnTop kind form.

I show it with this code:

ShowWindow(Handle, SW_SHOWNOACTIVATE);
Visible := True;

Today I realized that if I activate another application then the balloon is not appearing! So it is loosing it's stay on top style.

Environment: Win7/x64 Delphi 6 Professional

What I can do with it?

Thanks: dd

回答1:

What worked for me in the past when struggling with stay-on-top forms:

Form := TMyForm.Create(Self);
Application.NormalizeTopMosts;
SetWindowPos(Form.Handle, HWND_TOPMOST, 0, 0, 0, 0,
             SWP_NOACTIVATE + SWP_NOMOVE + SWP_NOSIZE);
Form.Show;

Try this instead of your ShowWindow call. This stays on top of all windows (do you really want this?). Also it feelds kind of hacky because it omits the RestoreTopMosts call which the documentation says we should call (so other stay-on-top windows in your application will be affected). So there might be a better solution.

来源：https://stackoverflow.com/questions/7900427/delphi-balloon-form-with-fsstayontop-not-working-in-win7