안냥하심까..델파이 엄청 초보자임다...
팝업 component를 form에 놓구 팝업메뉴 즉, Left, right 메뉴를 만들어서 테스트를 했는데요..왜 팝업메뉴가 안떠죠 ?
Treeview 아이템을 오른쪽 마우스로 클릭했을때 팝업메뉴가 떠서 메뉴를 에디트할려고 하는데 팝업메뉴가 떠야져...
추가한 프로시져는여..여기서 자료받아서 추가했음..
아래처럼 추가해서 오른쪽마우스를 누르면 팝업메뉴가 떠야하지 않아엽 ?
그럼...
procedure TForm1.TreeView1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
var
SNode: TTreeNode;
CursorPos: TPoint;
begin
//오른쪽 버튼 누를때 포커스와 선택 모두 옮기기
if Button = mbRight then begin
CursorPos := TreeView1.ScreenToClient(Point(X,Y));
SNode := TreeView1.GetNodeAt(CursorPos.X, CursorPos.Y);
if SNode <> nil then
SNode.Selected := True;
end;
end;
그럼..답변점 해줘영....
위에건 마우스 우측클릭시 포커스 가져오게하는거군요
근데 팝업메뉴는 디자인시 트리뷰의 PopupMenu속성에 등록하시거나
코딩상에선 TreeView1.PopupMenu := PopupMenu1;로 등록하시면됩니다.
등로 않고사용시 띄울땐 PopupMenu1.Popup(X, Y);