Always on Top
0 отговора
45 прегледа
Always on Top
В едно приложение имам опция "AlwaysOnTop" за главната форма. Използвам следния код (не използвам свойството FormStyle, за да избегна премигването):
with actAlwaysOnTop do
begin
Checked := not Checked;
if Checked then
SetWindowPos(Self.Handle, HWND_TOPMOST, 0, 0, 0, 0,
SWP_NOREDRAW or SWP_NOSIZE or SWP_NOMOVE)
else
SetWindowPos(Self.Handle, HWND_NOTOPMOST, 0, 0, 0, 0,
SWP_NOREDRAW or SWP_NOSIZE or SWP_NOMOVE)
end;
Как да направя вторична форма Always-On-Top спрямо главната, независимо дали за главната опцията е включена или не?
with actAlwaysOnTop do
begin
Checked := not Checked;
if Checked then
SetWindowPos(Self.Handle, HWND_TOPMOST, 0, 0, 0, 0,
SWP_NOREDRAW or SWP_NOSIZE or SWP_NOMOVE)
else
SetWindowPos(Self.Handle, HWND_NOTOPMOST, 0, 0, 0, 0,
SWP_NOREDRAW or SWP_NOSIZE or SWP_NOMOVE)
end;
Как да направя вторична форма Always-On-Top спрямо главната, независимо дали за главната опцията е включена или не?