리디아 께서 말씀하시기를...

> 하나의 폼(어플) A를 만들었습니다.

> 그 폼에서 다른 프로그램 B를 실행합니다. 그러면 B에 포커스가

> 잡히지요. 이때 폼 A를 클릭하면 A에 포커스가 잡히면서 B는

> A뒤에 가리지요. 제 질문은요... A에 포커스가 잡혀도 다른 모든

> 프로그램이 가리지 않는, 말하자면 바탕화면처럼 맨 밑으로 가는

> 폼을 만들수 없을까요??

>



// 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.