항상위에 뜨는것은 5324번 글과 아래 코드를 보세요(퍼온 글).
그리고, formstyle:=fsStayOnTop속성이 있습니다.
procedure TACT100F.n_act910Click(Sender: TObject);
begin
n_act910.Checked := not n_act910.Checked;
if n_act910.Checked then
begin
with Self do
begin
SetWindowPos(Handle, HWND_TOPMOST, // 폼을 최상위로...
Left, Top, Width, Height,
SWP_NOACTIVATE or SWP_NOMOVE or SWP_NOSIZE);
end;
end else
begin
with Self do
begin
SetWindowPos(Handle, HWND_NOTOPMOST, // 폼의 최상위 해제...
Left, Top, Width, Height, 0);
end;
end;
end;
자신의 윈도를 최하위로 하려면, HWND_BOTTOM하면 될겁니다.
|