FORM2에 메세지를 정의하고 메세지이벤트핸들러를 사용했습니다.

FORM1에서 FORM2를 부르고 FORM2를 종료하면 FORM1으로 다시돌아가는 프로그램입니다.

그런데 처음 FORM2를 불렀을 때는 메세지 이벤트 핸들러가 잘 돌아가는데

그 이후로는 메세지를 처리하지 못합니다.

어떻게 해야하는지요.



FORM2 :



const

WM_SCANMESSAGE = WM_USER + 500;



protected

procedure OnScanMessage( var Message: TMessage ); message WM_SCANMESSAGE;



procedure TFORM2.OnScanMessage( var Message: TMessage );

begin

case Message.Msg of

WM_SCANMESSAGE :

begin

ScannerMessage(barcode);

Edit1.Text := barcode;

tbtempDataMove;

end;

end;

end;



FORM1 :



procedure TFORM1.S_dungrokClick(Sender: TObject);

begin

try

Application.CreateForm(TFORM2,FORM2);

FORM2.ShowModal;

finally

FORM2.Free;

end;

end;