How to realize the lyrics window like Qianqian Jingting, you can set whether it is always front by the button (dynamic s

celebee

How to realize the lyrics window like Qianqian Jingting, you can set whether it is always front by the button (dynamic setting window is always front)

lazying

Is this not?
procedure TForm1.Button2Click (Sender: TObject);
begin
   form1.FormStyle: = fsstayontop;
end;

coolman214

SetWindowPos (Form1.Handle, HWND_TOPMOST, Form1.Left, Form1.Top, Form1.Widht, Form1.Height, SWP_SHOWWINDOW);

coolman214

Forefront display:
SetWindowPos (Form1.Handle, HWND_TOPMOST, Form1.Left, Form1.Top, Form1.Width, Form1.Height, SWP_SHOWWINDOW);

Cancel frontmost display:
SetWindowPos (Form1.Handle, HWND_NOTOPMOST, Form1.Left, Form1.Top, Form1.Width, Form1.Height, SWP_SHOWWINDOW);

celebee

(Owner) Ask for help again!
    The code upstairs is not working. If you press to display the desktop form, it will be hidden, but Qianqianjing will not be hidden. What I want is this effect !!! Please help !!

landen

1.form1.FormStyle:=fsstayontop;
2. The forefront display:
SetWindowPos (Form1.Handle, HWND_TOPMOST, Form1.Left, Form1.Top, Form1.Width,

Form1.Height, SWP_SHOWWINDOW );
Cancel the front end display:
SetWindowPos (Form1.Handle, HWND_NOTOPMOST, Form1.Left, Form1.Top, Form1.Width,

Form1.Height, SWP_SHOWWINDOW );
All three are ok, you can try again