parkisu wrote:

> 별도의 폼하나를 키보드 형태로 만들고 버튼을 누르면 현재 활성화 되어있는 폼의 컨트롤에 키입력이 되게 하고 싶은데 어떤 방법이 있는지요?

> 같은 폼안에서는 되는데 어플리케이션 차원에서는 안되는군요.



음냐.....약간 질문이 애매한데요....

제가 제대로 이해했는지 모르겠네요...

저번에도 올렸던 답변인데....참고하세요....



키보드 형태로 되어 있는 어플리케이션에서 어떤 이벤트가 발생할 때....



procedure TfrmMain2.btnMoveClick(Sender: TObject);

type

tData = Record

s: String[15];

end;

var DataStruct: TCopyDataStruct;

Data: TData;

h: hwnd;

begin

h := FindWindow('TfrmMain', nil);

If h = 0 then exit;

Data.s := 'test';

DataStruct.dwData := RegisterWindowMessage('SyncString');

DataStruct.cbData := SizeOf(TData);

DataStruct.lpData := @Data;

SendMessage(h, WM_COPYDATA, wParam(Application.Handle), lParam(@DataStruct));

end;







다른 어플리케이션에서 이 메세지를 받아서 실행하는 곳....

이벤트를 실행할 어플리케이션...

private

{ Private declarations }

procedure WndProc(var wpMessage: Tmessage); override;

public



procedure TfrmMain.WndProc(var wpMessage : Tmessage);

var tmp: String;

Data : TData;

begin

if (wpMessage.Msg = WM_CopyData) And

(PCopyDataStruct(wpMessage.lParam)^.dwData = f_my_Messagehandle)

then

begin

CopyMemory(@data, PCopyDataStruct(wpMessage.lParam)^.lpData, SizeOf(TData));

wpMessage.Result := 1;

tmp := data.s;

If tmp = [어떤 특정값이면] then 실행할 함수를 호출한다.

end

else inherited WndProc(wpMessage);

end;



위의 소스와 같이 현재 어플리케이션에서 어떤 조건에 의해 다른 어플리케이션의

이벤트를 실행시킬려면(말이 어렵나?ㅡ.ㅡ?)

어떤 특정값을 다른 어플리케이션에 보내는 것입니다.

그 값을 받은 다른 어플리케이션은 그 값을 비교해서 특정 이벤트를 실행시키면 되죠.

위의 소스를 참고하세요.

그럼 좋은 어플리케이션 만드세요.