ｿｽ@ ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ

ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO

ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++

ｿｽﾖ連ｿｽTｿｽCｿｽg

ｿｽEpapy's softwarelibrary

Hoby 2006/08/29(ｿｽｿｽ) 21:56:21

ｿｽｿｽｿｽｿｽｿｽ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

Fusa 2006/08/30(ｿｽｿｽ) 06:27:04

ｿｽｿｽｿｽｿｽ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;

Hoby 2006/08/30(ｿｽｿｽ) 22:27:28

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

Fusa 2006/08/31(ｿｽｿｽ) 23:27:46

TopMostｿｽﾉゑｿｽｿｽ髀ｿｽﾔゑｿｽﾖ係ｿｽｿｽｿｽｿｽ謔､ｿｽﾅゑｿｽｿｽﾋ。

procedure TForm1.Button1Click(Sender: TObject);
begin
  Form2.Show;
  Form2.TopMost := True;
  Form1.TopMost := True;
end;

ｿｽﾇゑｿｽｿｽｿｽAｿｽｿｽｿｽがｿｽｿｽｿｽｿｽｿｽｿｽｿｽ閧ｵｿｽﾜゑｿｽｿｽｿｽ
ｿｽｿｽｿｽCｿｽｿｽｿｽtｿｽHｿｽ[ｿｽｿｽｿｽﾅゑｿｽｿｽｿｽForm1ｿｽｿｽﾅ鯉ｿｽｿｽTopMost:=TrueｿｽﾉゑｿｽｿｽﾄみてゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽB

ｿｽｿｽH 2006/09/01(ｿｽｿｽ) 15:53:48

ｿｽｿｽｿｽｿｽｿｽｿｽﾆ目撰ｿｽｿｽﾏゑｿｽｿｽﾄ、ｿｽｿｽｿｽｿｽﾈのは？
ｿｽ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;

ｿｽgｿｽｿｽｿｽｿｽｿｽｿｽ 2006/09/08(ｿｽｿｽ) 13:26:32

ｿｽｿｽHｿｽｿｽｿｽｿｽ
ｿｽｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽﾄみまゑｿｽｿｽB

Created by board of various Programming Library.