안녕하세요. 최용일입니다.



예전에 제가 윈도우 프로시져 바꾸는 방법을 알려드렸잖아요. 폼에서 탭키를 인식하게



하려고 했을때... 그거 좀만 응용하면 되는데... 주석은 안 달께요...



type

TForm1 = class(TForm)

ListBox1: TListBox;

procedure FormCreate(Sender: TObject);

private

OldWndMethod: TWndMethod;

procedure ListBoxScroll(var Message:TMessage);

end;



var

Form1: TForm1;



implementation



uses Unit2;



{$R *.DFM}



procedure TForm1.FormCreate(Sender: TObject);

begin

OldWndMethod := ListBox1.WindowProc;

ListBox1.WindowProc := ListBoxScroll;

end;



procedure TForm1.ListBoxScroll(var Message: TMessage);

begin

if Message.Msg = WM_VSCROLL then

Form2.Show;



OldWndMethod(Message);

end;



^^ 항상 즐코하세요.



어린왕자 wrote:

> 안녕하세요.영원한 델초보 어린왕자입니다.

> 이제 거의 델파이와 인연을 맺인지 1년이 다 되어가는군여^^;

> 이놈의 실력은 언제 느는지..

> 암튼 오래간만에 질문합니다..

>

> 폼위에 리스트박스하나 두었구요..

> 리스트박스에 아이템이 많아서..상하스크롤바가 생긴상태이구요..

>

> 근데 원래 목적은..

> 그 스크롤박스를 마우스루 움직인다면..

> 스크롤바에서 마우스를 Up했을때 그 스크롤바가 있는 폼에서 다른 폼으로 엑티브를 바꾸고 싶어요..

>

> 근데 힘들면요..

> 스크롤바에서 마우스up하는 이벤트를 만들수 없나요?

>

> 고수님~ 도!와!주!세!염~

>

> procedure TForm1.FormCreate(Sender: TObject);

> begin

> OldWndMethod := ListBox1.WindowProc;

> ListBox1.WindowProc := ListBoxScroll;

> end;

>

> procedure TForm1.ListBoxScroll(var Message: TMessage);

> begin

> if Message.Msg = WM_VSCROLL then

> Form2.Show;

>

> OldWndMethod(Message);

> end;



아~ 이렇게 하면 쉽게 되네요..전 복잡하게 생각했는데..죄송..T.T