Q&A

  • FilelistBox 에서의 popupmenu
FilelistBox 에서 마우스 오른쪽 버튼을 이용해서...

각각 선택된 파일에 대하여 팝업을 띄우려고 합니다.

그런데...

마우스 오른쪽 버튼으로 팝업은 잘 뜨긴 하는데...

오른쪽 버튼으로 FilelistBox 의 클릭한 파일이 선택이 되질 않는군요..

마우스 오른쪽 버튼으로 선택된 파일을 Selected 할수 있는 방법이

궁금합니다......

ex) 왼쪽 클릭했을때.. 선택되면 파랗게 변하잖아요...고거..
1  COMMENTS
  • Profile
    박서규 2003.07.09 23:43



    이렇게 해보세여....  음....
    마구,, 마구 했슴다....

    procedure TForm1.FileListBox1MouseDown(Sender: TObject;
      Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
    var i : integer;
        w : PWORD;
    begin
         if not(ssRight in Shift) then exit;
         w := @i;
         w^ := X;
         inc(w);
         w^ := Y;
         SendMessage(FileListBox1.Handle, WM_LBUTTONDOWN, MK_LBUTTON , i);
         PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);
         SendMessage(FileListBox1.Handle, WM_LBUTTONUP, MK_LBUTTON , i);
    end;