Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.
SetWindowPos causes taskbar button to flash
I need to make a form in an application always be the top z ordered form on a messy desktop, and explicitly set focus to an edit box in the form. When I call SetWindowPos it always brings the form to the topmost z position but the focus is set to the application's button on the taskbar which is flashing. I need that to stop and instead have focus appear in a waiting TEdit of the form.
Is there a work around for the behavior of SetWindowPos or another technique.
Is there a work around for the behavior of SetWindowPos or another technique.
SetWindowPos(Self.Handle,
HWND_TOPMOST,
Top,
Left,
Width,
Height,
SWP_NOMOVE + SWP_NOSIZE)
Asked:
3-
2
1 Solution
That won't work. Focus is on the taskbar button for the app. The taskbar button is flashing. This is the behavior of Windows SetWindowsPos. I tried using Windows.SetForegroundWindo
This means your app isn't the active app, and a window in your app has changed focus or z-order
Do you want your app to remain inactive ?
if you change your app to active first and then change the z-order this flashing shouldn't happen
Do you want your app to remain inactive ?
if you change your app to active first and then change the z-order this flashing shouldn't happen
Doesn't help. Maybe I'm leaving something out of my code. Here is the FormShow method that is giving me a headache. Note that the extra call to SetForegroundWindow makes no difference if it is in or commented out.
Thanks.
Thanks.
procedure TfrmPatLookup.FormShow(Sender: TObject);
begin
{set the z order for all the windows forms so this
form is the topmost}
Self.ActiveControl := Self.ePatient;
SetWindowPos(Self.Handle,
HWND_TOPMOST,
Top,
Left,
Width,
Height,
SWP_NOMOVE + SWP_NOSIZE);
SetForegroundWindow(Self.Handle);
if Self.ePatient.CanFocus then
Self.epatient.SetFocus;
end;
in formshow, the form is not allways visible yet
you don't need to self. everything
try this:
TfrmPatLookup.FormStyle := fsStayOnTop; // This is a must !
type
TfrmPatLookup = class(TForm)
procedure FormShow(Sender: TObject);
private
procedure WMFormShow(var Msg: TMessage); message WM_USER;
end;
procedure TfrmPatLookup.FormShow(Sen
begin
PostMessage(Handle, WM_USER, 0, 0);
end;
procedure TfrmPatLookup.WMFormShow(v
begin
BringToFront;
ActiveControl := ePatient;
end;
you don't need to self. everything
try this:
TfrmPatLookup.FormStyle := fsStayOnTop; // This is a must !
type
TfrmPatLookup = class(TForm)
procedure FormShow(Sender: TObject);
private
procedure WMFormShow(var Msg: TMessage); message WM_USER;
end;
procedure TfrmPatLookup.FormShow(Sen
begin
PostMessage(Handle, WM_USER, 0, 0);
end;
procedure TfrmPatLookup.WMFormShow(v
begin
BringToFront;
ActiveControl := ePatient;
end;
Question has a verified solution.
Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.
Have a better answer? Share it in a comment.
Join & Write a Comment Already a member? Login.
Featured Post
Tackle projects and never again get stuck behind a technical roadblock.
Join Now
procedure TForm1.Test;
begin
Form2.ActiveControl := Form2.Edit1;
end;