�@ �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++

�֘A�T�C�g

�Epapy's softwarelibrary

Hoby 2006/08/29(��) 21:56:21

�����b�ɂȂ�܂��B
Form1�`Form4�͂����������T�C�Y�i���������v�\�����x�̃T�C�Y�j�ł��B
�������A�f�X�N�g�b�v�őO�ʂɕ\������������̂ŁAfsStayOnTop�ɂ��Ă��܂��B
Form1����|�b�v�A�b�v���j���[��Form2�`4��\�������Ă��܂��B
�\����������́A���ׂĂ�Form���őO�ʂɕ\������Ă��܂����A
Form1�ȊO��Form��N���b�N����ƁA�őO�ʂ̕\�����������Ă��܂��܂��B
BorderStyle�͂��ׂẴt�H�[����bsNone��ClientHeight��25�AClientWidt��125�ŃT�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�̒l�Ƃ͊֌W�Ȃ��őO�ʏ�Ԃ��ω�����
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�����̍őO�ʂɕ\����
���������̂ł����E�E�E�E�B

���ꂼ���Form��OnCreate���ɁA��L��SetWindowPos(Handle, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE + SWP_NOSIZE);�@��L�q���āA

Form1����2.3.4�̂��ꂼ���Show���\�b�h�ŕ\��������Ă݂܂������A
���܂������Ȃ��̂ł����B

Fusa 2006/08/31(��) 23:27:46

TopMost�ɂ��鏇�Ԃ�֌W����悤�ł��ˁB

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

������Ɩڐ��ς��āA����Ȃ̂́H
�t�H�[���ɏd�Ȃ肪����ƁA��a��������܂����ǁB

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.