Q&A
- Treeview에서 오른쪽 마우스버튼 이용하기
Treeview의 MouseDown에서
아래와 같이 코딩을 했는데, 바탕에 클릭을 도 해당 아이템으로 선택이 되더라구요.
바탕을 클릭하면 아무반응이 없게 하려면 어떻게 하면 되는지 답변 부탁드립니다.
procedure TfmMain.TreeView1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
TVHitTestInfo : TTVHitTestInfo;
TreeItem : hTreeItem;
begin
TVHitTestInfo.pt := Point(X, Y);
with TreeView1 do
begin
TreeItem := TreeView_HitTest(Handle, TVHitTestInfo);
if TreeItem <> nil then
TreeView_Select(Handle, TreeItem, TVGN_CARET);
end;
end;
아래와 같이 코딩을 했는데, 바탕에 클릭을 도 해당 아이템으로 선택이 되더라구요.
바탕을 클릭하면 아무반응이 없게 하려면 어떻게 하면 되는지 답변 부탁드립니다.
procedure TfmMain.TreeView1MouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
TVHitTestInfo : TTVHitTestInfo;
TreeItem : hTreeItem;
begin
TVHitTestInfo.pt := Point(X, Y);
with TreeView1 do
begin
TreeItem := TreeView_HitTest(Handle, TVHitTestInfo);
if TreeItem <> nil then
TreeView_Select(Handle, TreeItem, TVGN_CARET);
end;
end;
1
COMMENTS
(NOTICE) You must be logged in to comment on this post.
-
- 박철호
- •
- 2002.02.15 19:29
- 3 COMMENTS
- /
- 0 LIKES
-
공성환•2002.02.15 19:58예전에 김영대씨가 했던 방법일겁니다... procedure TForm1.FormPaint(Sender: TObject); var &... -
LuckyBoy•2002.02.15 23:05안녕하세요.. 박 철호 입니다.. 답변 내용 감사합니다.. 알려 주신 방법대로 해보니까.. 아주 잘되는...
-
공성환•2002.02.16 00:38Panel까지할려고요... 잘은 모르지만 이렇게 하니깐 되는것 같기도 하네요... Panel위에 Image를 하나...
-
- 윤도상
- •
- 2002.02.15 19:26
- 1 COMMENTS
- /
- 0 LIKES
-
공성환•2002.02.15 20:24procedure TForm1.Button1Click(Sender: TObject); var vv_i : Integer; begin &nbs...
-
- PINE
- •
- 2002.02.15 19:24
- 1 COMMENTS
- /
- 0 LIKES
-
최용일•2002.02.15 21:38안녕하세요. 최용일입니다. 트리뷰 노드(TTreeNode)에 보시면 HasChildren속성이 있거든요... 이 속성을...
-
- 어린왕자A
- •
- 2002.02.15 19:05
- 1 COMMENTS
- /
- 0 LIKES
-
박종현•2002.02.15 21:09단순하게 onchange 이벤트에서....... if Length((Sender as TSpinEdit).Text) = 1 th...
-
-
조규춘•2002.02.15 21:50차라리 이 방법은 어떨까요? 익스플러러 에서 주소칠때처럼 나오는 방법이요.. 아래의 소스를 이용...
-
프로초보•2002.02.16 00:27
-
-
- 정종필
- 2002.02.15 19:02
- 0 COMMENTS
- /
- 0 LIKES
-
- 윤도상
- •
- 2002.02.15 18:57
- 1 COMMENTS
- /
- 0 LIKES
Treeview의 MouseDown에서 아래와 같이 코딩을 했는데, 바탕에 클릭을 도 해당 아이템으로 선택이 되더라구요. 바탕을 클릭하면 아무반응이 없게 하려면 어떻게 하면 되는지 답변 부탁드립니다. procedure TfmMain.TreeView1MouseDown(Sen...-
최용일•2002.02.15 23:05안녕하세요. 최용일입니다. 아래와 같이 코딩해보세요... procedure TForm1.TreeView1MouseDown(Send...
-
- 황돈기
- •
- 2002.02.15 10:50
- 1 COMMENTS
- /
- 0 LIKES
-
한주영•2002.02.15 16:34SocketServer는 모르겠고 indy server는 32768이라도 1m 이상되는 버퍼를 받는데 전혀 이상이 없습니다.
-
- KYH
- •
- 2002.02.15 07:09
- 1 COMMENTS
- /
- 0 LIKES
-
허일학•2002.02.15 09:37음... 정확한 답변은 아닌것 같습니다만... 위에 에러메세지는 DbGrid에서 Row Index때문에 발생하는...
-
- 델파이 초보
- •
- 2002.02.15 07:00
- 1 COMMENTS
- /
- 0 LIKES
-
허일학•2002.02.15 08:43도움말에서 FindFirst function 을 찾아보시면 자세한 예제와함께... 사용방법이 있습니다.. 참고하...
-
- 박희경
- •
- 2002.02.15 06:45
- 1 COMMENTS
- /
- 0 LIKES
-
권희수•2002.02.15 20:35procedure TForm1.Button1Click(Sender: TObject); var sPos,ePos:integer; begin ...
-
- 배장훈
- 2002.02.15 06:39
- 0 COMMENTS
- /
- 0 LIKES
-
- 이병협
- 2002.02.15 06:28
- 0 COMMENTS
- /
- 0 LIKES
-
- 이상협
- 2002.02.15 05:57
- 0 COMMENTS
- /
- 0 LIKES
-
- 데빠이
- •
- 2002.02.15 05:33
- 1 COMMENTS
- /
- 0 LIKES
-
데빠이•2002.02.15 11:32헤헤 제가 질문하고 제가 답다네여... 찾아보니까 옛날 문답에 최용일님께서 올려놓으신 자료가 있어서 ...
-
- sjHwang
- 2002.02.15 04:08
- 0 COMMENTS
- /
- 0 LIKES
-
- 김경훈
- •
- 2002.02.15 03:47
- 1 COMMENTS
- /
- 0 LIKES
-
윤광석•2002.02.15 05:01예전에 받은 소스에요... 저도 자세히 내용 잘 몰라요.. 한번 참조해보세요... procedure PostKeyEx(hW...
-
- 박영아
- •
- 2002.02.15 03:12
- 2 COMMENTS
- /
- 0 LIKES
-
kim•2002.02.15 03:18아래함수를 사용하시면 가능할 겁니다. 함수는 어디선가??에서 퍼왔구요.. function TForm1.SetPCSy...
-
박영아•2002.02.15 03:29많은 도움이 되었습니다. 올리자 마자 바로 답변이 오니 넘 기분이 좋네요. 감사 감사. ^^
-
- 윤도상
- •
- 2002.02.15 02:46
- 6 COMMENTS
- /
- 0 LIKES
-
윤수아•2002.02.15 03:02
-
윤도상•2002.02.15 03:14
-
윤수아•2002.02.15 03:22
-
윤도상•2002.02.15 03:36
-
최용일•2002.02.15 05:09
-
윤도상•2002.02.15 18:53
-
- 이은호
- •
- 2002.02.15 01:53
- 1 COMMENTS
- /
- 0 LIKES
-
kim•2002.02.15 03:08답변이 될진 모르겠지만 일단 써봅니다. CDS에는 데이터를 파일로 저장하는 기능이 있습니다. Save...
아래와 같이 코딩해보세요...
procedure TForm1.TreeView1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
Item: TTreeNode;
begin
if htOnItem in TreeView1.GetHitTestInfoAt(X, Y) then
begin
Item := TreeView1.GetNodeAt(X, Y);
if Item <> nil then
아이템을 클릭했을때 작업들...
end;
end;
참고로 굳이 TreeView_XXXX함수들을 쓸 필요는 없을거 같네요... 트리뷰에 다 들어가 있으니까요...
^^ 항상 즐코하세요...