한 wrote:

> 모두들 수고하시네요...

> 어려운 시기에 모든일 잘되시기를 먼저 기원합니다. 저도 잘되고요...후후

> 어찌 설명해야 될지 모르겠지만,....ㅠㅠ

>

> 두개의 메모가 있는데 한쪽 메모의 스크롤버턴을 누르면

>

> 다른쪽의 스크롤버턴을 누른거와 같은 효과를 낼려고 합니다.

>

> 그러니까 어느 한쪽을 클릭하면 두개의 메모가 동시에 작동하는거죠....ㅠㅠ

>

> 어찌해야될지 모르겠네요...ㅜㅜ

> | |

> 많은 조언 부탁드립니다.

>

> 수고하세요.



아래와 같이 코딩하세요.



var

Form1: TForm1;

OldListWinProc: TWndMethod;



implementation



{$R *.DFM}



procedure TForm1.NewListWinProc(var Message: TMessage);

begin

OldListWinProc(Message);

with Message do

Case Msg of

WM_VSCROLL:

SendMessage(Memo2.Handle,WM_VSCROLL,wParam,lParam);

WM_HSCROLL:

SendMessage(Memo2.Handle,WM_HSCROLL,wParam,lParam);

end;

end;



procedure TForm1.FormCreate(Sender: TObject);

begin

OldListWinProc:=Memo1.WindowProc;

Memo1.WindowProc:=NewListWinProc;

end;



procedure TForm1.FormDestroy(Sender: TObject);

begin

Memo1.WindowProc := OldListWinProc;

end;



도움이 되셨지요.. 위와 같은 방법으로 하면

어떤 컨트롤의 메세지를 전부 가로챌 수 있어요.....



그럼 감사의 메일을 기다립니다...^^