[윈도우즈 API] 폼을 최하위(?)로 설정하기

// Edit1, Memo1 는 그냥 올려놓은 것임
// window 가 inactive 이지만 Edit1, Memo1 에 입력은됨
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Memo1: TMemo;
  private
    { Private declarations }
    procedure WMActivate(var Message: TWMActivate); message WM_ACTIVATE;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation
{$R *.DFM}

procedure TForm1.WMActivate(var Message: TWMActivate);
var
  i: Integer;
begin
  inherited;
  with Self do
    SetWindowPos(Handle, HWND_BOTTOM, // Z order 의 최하위
                 Left, Top, Width, Height,
                 SWP_NOACTIVATE); // window 를 activate 시키지 않음
end;

end.