ソス@ソスソスソスソスソスソスソスソスFormソスソスfsStayOnTopソスフ関係ソスノつゑソスソスソス
|
ソスEC/C++
ソスEDelphi
ソスEVisual BasicソスソスソスSソスソス
ソス@(VB2-VB6ソスソス.NETソスソスソスp)
ソスEVisual Basic(VB2-VB6)
ソスEVisual Basic .NET
ソスEVisual C++
ソスEpapy's softwarelibrary
ソスソスソスソスソスbソスノなゑソスワゑソスソスB
Form1ソス`Form4ソスヘゑソスソスソスソスソスソスソスソスソスソスTソスCソスYソスiソスソスソスソスソスソスソスソスソスvソス¥ソスソスソスソスソスxソスフサソスCソスYソスjソスナゑソスソスB
ソスソスソスソスソスソスソスAソスfソスXソスNソスgソスbソスvソスナ前ソスハに表ソスソスソスソスソスソスソスソスソスソスソスソスフで、fsStayOnTopソスノゑソスソストゑソスソスワゑソスソスB
Form1ソスソスソスソス|ソスbソスvソスAソスbソスvソスソスソスjソスソスソス[ソスソスForm2ソス`4ソスソス¥ソスソスソスソスソスソスソストゑソスソスワゑソスソスB
ソス¥ソスソスソスソスソスソスソスソスソスソスヘ、ソスソスソスラてゑソスFormソスソスソスナ前ソスハに表ソスソスソスソスソスソストゑソスソスワゑソスソスソスソスA
Form1ソスネ外ソスソスFormソスソスNソスソスソスbソスNソスソスソスソスニ、ソスナ前ソスハの表ソスソスソスソスソスソスソスソスソスソスソストゑソスソスワゑソスソスワゑソスソスB
BorderStyleソスヘゑソスソスラてのフソスHソス[ソスソスソスソスbsNoneソスソスClientHeightソスソス25ソスAClientWidtソスソス125ソスナサソスCソスYソスソスソスソスハにゑソスソスAソスcソスノ包ソスソスラゑソス謔、ソスノ表ソスソスソスソスソスソスソスソストゑソスソスワゑソスソスB
ソスソスソスソスソスヌゑソスソスホ擾ソスソスソスソス@ソスヘゑソスソスソスソスソスソスワゑソスソスソスソスH
ソスソスソスソスBorderStyleソスヘ厄ソスソスソスソスソスソスソス
TopMostソスvソスソスソスpソスeソスBソスソス
ソスツゑソスソスソスソスト撰ソスソス艪オソストゑソスソスワゑソスソスB
ソスQソスlソスノゑソスソストゑソスソスソスソスソスソスソスソスB
type
TForm1 = class(TForm)
CheckBox1: TCheckBox;
procedure FormShow(Sender: TObject);
procedure CheckBox1Click(Sender: TObject);
private
private
FTopMost: Boolean;
procedure SetTopMost(const Value: Boolean);
function GetTopMost: Boolean;
public
property TopMost: Boolean read GetTopMost write SetTopMost;
end;
procedure TForm1.FormShow(Sender: TObject);
begin
FTopMost := True;//or False;
Self.TopMost := Self.TopMost;
//Self.FormStyle:=fsStayOnTopソスノゑソスソストゑソスソスソスソスソスソスソス
//TopMostソスvソスソスソスpソスeソスBソスソスRソス[ソスhソスナ設定すソス驍アソスニゑソス
//FormStyleソスフ値ソスニは関係ソスネゑソスソスナ前ソスハ擾ソスヤゑソスソスマ会ソスソスソスソスソス
end;
procedure TForm1.SetTopMost(const Value: Boolean);
begin
if Value then
begin
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);
end else
begin
SetWindowPos(Handle, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);
end;
FTopMost := Value;
end;
function TForm1.GetTopMost: Boolean;
begin
Result := FTopMost;
end;
FusaソスソスソスありがソスニゑソスソスソスソスソスソスソスソスワゑソスソスB
Form1ソス`4ソスフゑソスソスラてゑソスAソスソスソスソスWindowsソスAソスvソスソスソスPソス[ソスVソスソスソスソスソスフ最前ソスハに表ソスソスソスソス
ソスソスソスソスソスソスソスソスソスフでゑソスソスソスソスEソスEソスEソスEソスB
ソスソスソス黷シソスソスソスFormソスソスOnCreateソスソスソスノ、ソスソスLソスソスSetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);ソス@ソスソスLソスqソスソスソスト、
Form1ソスソスソスソス2.3.4ソスフゑソスソス黷シソスソスソスShowソスソスソス¥ソスbソスhソスナ表ソスソスソスソスソスソスソスソストみまゑソスソスソスソスソスソスA
ソスソスソスワゑソスソスソスソスソスソスネゑソスソスフでゑソスソスソスソスB
TopMostソスノゑソスソス髀ソスヤゑソスヨ係ソスソスソスソス謔、ソスナゑソスソスヒ。
procedure TForm1.Button1Click(Sender: TObject);
begin
Form2.Show;
Form2.TopMost := True;
Form1.TopMost := True;
end;
ソスヌゑソスソスソスAソスソスソスがソスソスソスソスソスソスソス閧オソスワゑソスソスソス
ソスソスソスCソスソスソスtソスHソス[ソスソスソスナゑソスソスソスForm1ソスソスナ鯉ソスソスTopMost:=TrueソスノゑソスソストみてゑソスソスソスソスソスソスソスソスB
ソスソスソスソスソスソスニ目撰ソスソスマゑソスソスト、ソスソスソスソスネのは?
ソスtソスHソス[ソスソスソスノ重ソスネりがソスソスソスソスニ、ソスソスaソスソスソスソスソスソスソスソスワゑソスソスソスソスヌ。
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
private
procedure AppDeactivate(Sender: TObject);
end;
procedure WindowTopMost(Handle: THandle);
begin
SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0,
SWP_NOMOVE or SWP_NOSIZE or SWP_NOACTIVATE);
end;
procedure TForm1.AppDeactivate(Sender: TObject);
var
i:Integer;
begin
for i := 0 to Screen.FormCount -1 do begin
if Screen.Forms[i] <> Screen.ActiveForm then begin
WindowTopMost(Screen.Forms[i].Handle);
end;
end;
if Screen.ActiveForm <> nil then begin
WindowTopMost(Screen.ActiveForm.Handle);
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnDeactivate := AppDeactivate;
end;
ソスソスHソスソスソスソス
ソスソスソス閧ェソスニゑソスソスソスソスソスソスソスソスワゑソスソスB
ソスソスソスソストみまゑソスソスB