GetFocus를 사용해 보세요.

GetFocus를 하면 현재 키보드입력상태에 있는 콘트롤의 핸들값을 반환합니다.

그핸들로 메세지를 보내면 되죠.





이미영 wrote:

> 특정 단축키가 눌려지면 현재 포커스가 있는 윈도우에 클립보드의 내용을

> 붙여 넣을려고 합니다....

>

> 예로든다면 델파이 IDE환경에서 작업중이라면 Delphi의 코드 윈도우에

> 포커스가 있을 경우 코드 윈도우에 특정 내용을 자동으로 paste하고 싶은데..

>

> wm_paste메세지를 이용을 할려고 하는데... 프로그램에서

> 현재 포커스가 있는 컨트롤의 handle값을 찾을 방법이 없네요....

>

> 윈도우상에서 현재 포커스가 있는 컨트롤의 handle값을 얻어 내는

> 방법이 없을까요?

Procedure MessageHandler(mm: Tmessage);

var

CHandle: HWND;

Begin

CHandle := GetFocus();

postMessage(CHandle, WM_PASTE, 0 ,0);

end;

위와 같이 이미 해봤는데도... 잘 안되는데요...



정욱님 제가 무엇을 잘못한건가요...??





이정욱 wrote:

> GetFocus를 사용해 보세요.

> GetFocus를 하면 현재 키보드입력상태에 있는 콘트롤의 핸들값을 반환합니다.

> 그핸들로 메세지를 보내면 되죠.

>

>

> 이미영 wrote:

> > 특정 단축키가 눌려지면 현재 포커스가 있는 윈도우에 클립보드의 내용을

> > 붙여 넣을려고 합니다....

> >

> > 예로든다면 델파이 IDE환경에서 작업중이라면 Delphi의 코드 윈도우에

> > 포커스가 있을 경우 코드 윈도우에 특정 내용을 자동으로 paste하고 싶은데..

> >

> > wm_paste메세지를 이용을 할려고 하는데... 프로그램에서

> > 현재 포커스가 있는 컨트롤의 handle값을 찾을 방법이 없네요....

> >

> > 윈도우상에서 현재 포커스가 있는 컨트롤의 handle값을 얻어 내는

> > 방법이 없을까요?

>

>

아래를 참고하세요.

쩝.. 근데 저 안 멋져요.. ^^;



procedure SendData(TargetWnd : HWnd; StrMsg: string);

var i : integer;



begin

{ 메시지를 받을 윈도우가 터미널인지 윈도우 공용콘트롤인지를 검사.}

if SendMessage(TargetWnd, EM_CANUNDO, 0, 0) = 1 then

begin

{ 클립보드에 메시지를 넣은다음..}

ClipBoard.AsText := StrMsg;



{ 만약 윈도우가 공통콘트롤이 아니라면 WM_PASTE 메시지에 잘 반응하지 못한다. 공통콘트롤(memo, edit등등..)이면}



if SendMessage(TargetWnd, WM_PASTE, 0, 0) <> 0 then exit;

end else

{ 그렇지 않다면.. 메시지를 char단위로 잘라서 보낸다.}

for i :=1 to Length(StrMsg) do

SendMessage(TargetWnd, WM_CHAR, ord(StrMsg[i]), 0);

end;





이미영 wrote:

> Procedure MessageHandler(mm: Tmessage);

> var

> CHandle: HWND;

> Begin

> CHandle := GetFocus();

> postMessage(CHandle, WM_PASTE, 0 ,0);

> end;

> 위와 같이 이미 해봤는데도... 잘 안되는데요...

>

> 정욱님 제가 무엇을 잘못한건가요...??

>

>

> 이정욱 wrote:

> > GetFocus를 사용해 보세요.

> > GetFocus를 하면 현재 키보드입력상태에 있는 콘트롤의 핸들값을 반환합니다.

> > 그핸들로 메세지를 보내면 되죠.

> >

> >

> > 이미영 wrote:

> > > 특정 단축키가 눌려지면 현재 포커스가 있는 윈도우에 클립보드의 내용을

> > > 붙여 넣을려고 합니다....

> > >

> > > 예로든다면 델파이 IDE환경에서 작업중이라면 Delphi의 코드 윈도우에

> > > 포커스가 있을 경우 코드 윈도우에 특정 내용을 자동으로 paste하고 싶은데..

> > >

> > > wm_paste메세지를 이용을 할려고 하는데... 프로그램에서

> > > 현재 포커스가 있는 컨트롤의 handle값을 찾을 방법이 없네요....

> > >

> > > 윈도우상에서 현재 포커스가 있는 컨트롤의 handle값을 얻어 내는

> > > 방법이 없을까요?

> >

> >

>

>