님이 만드신 폼이 항상 최상위에 있게 끔 하고 싶다는 말씀이시져?



제대로 이해했는지 모르겠습니다만,



원하시는게 아래 내용인지 보세요.



간략한 예제를 올립니다.



type

TForm1 = class(TForm)

Button1: TButton;

Button2: TButton;

procedure FormCreate(Sender: TObject);

procedure Button1Click(Sender: TObject);

private

{ Private declarations }

procedure AppOnMessage(var Msg: TMsg; var Handled: Boolean);

public

{ Public declarations }

end;



var

Form1: TForm1;



implementation



uses Unit2;



{$R *.DFM}



procedure TForm1.FormCreate(Sender: TObject);

begin

Application.OnMessage := AppOnMessage;

end;





procedure TForm1.AppOnMessage(var Msg: TMsg; var Handled: Boolean);

Begin

if Msg.Message = 45057 then //외부 프로그램이 활성화 되면

SetWindowPos(Form1.handle, HWND_TOPMOST, Form1.Left, Form1.Top, Form1.Width, Form1.Height,0);

// 내 폼을 최상위 폼으로 만들어 버린다.

// 즉, 항상 폼이 최상위에 있게 된다.

end;





그럼~ 항상 즐거운 프로그래밍 하시길~







왕초보 wrote:

> 그러니 제가 델파이로 만든 폼을 활성화 시키면.

> 외부의 어플리케이션을 실행시키면,

> 브라우져,모니터 뒤에 숨어져 있잖아요,

> 근데 제가 만든 폼이 항시 다른걸 실행 시켜도

> 모니터 항상 상단에 놓여 있고 활성화 되어져 있으면 하는데.

> 가령 excel로 작업 하다가,

> hwp를 실행 시키면

> excel 작업 환경은 모니터 뒤고 가서 보이지 않잔하요,

> 다시 excel을 클릭하면 활성화 되고,

> ....

> 그러지 말구

> 항시 제가 만든 폼은 모니터 상단에 활성화 되게.

> 눈에 항시 볼수 있도록,

>

>

> ...

> 그리고

> window2000에서

> sql7.0을 쓰면서 ado를 작업 하였는데

> 98하면

> db연결을 할수 없다고 나오는데

> 레지스트리를 어떻게 하면 되나요

> 이 프로그램을 installshiel로 만들어서 배포해야 하는대

> 인스톨 쉴드로 만드뜰때...

>

제가 2000에서 작업을 했거든요

그래서 2000,98 사용자에게 배포를 하려고 하는데.

자꾸 98에서는 error가 나더라구요

연결할수 없다는......



adodb,adoquerry,timer,ms-sql7.0만 사용했는데.

레지스트리에서 뭘 고쳐 주려고 하는데,

어떻게 해야할지 모르게습니지.

부디 조금만 더 가르켜 주십시요

부탁 드립니다..