Q&A
- 트리뷰에서 팝업메뉴의 위치 조정....
procedure TForm1.TreeViewMouseDown(Sender: TObject;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
subNode : TTreeNode;
begin
if Button = mbRight
then
begin
if TreeView.Selected.Level = 0
then
begin
subNode := TreeView.GetNodeAt(X,Y);
PopupMenu1.Popup(X,Y);
end
else TreeView.Selected.Level = 1
then
begin
subNode := TreeView.GetNodeAt(X,Y);
PopupMenu2.Popup(X,Y);
end
;
end
;
이렇게 선택한 노드마다 팝업메뉴를 다르게 띄우는 건게, 이상하세 팝업메뉴의 위치가 윈도의 끝자락에서 뜨네염...
어떻게 해결을 해야 할까요....
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
subNode : TTreeNode;
begin
if Button = mbRight
then
begin
if TreeView.Selected.Level = 0
then
begin
subNode := TreeView.GetNodeAt(X,Y);
PopupMenu1.Popup(X,Y);
end
else TreeView.Selected.Level = 1
then
begin
subNode := TreeView.GetNodeAt(X,Y);
PopupMenu2.Popup(X,Y);
end
;
end
;
이렇게 선택한 노드마다 팝업메뉴를 다르게 띄우는 건게, 이상하세 팝업메뉴의 위치가 윈도의 끝자락에서 뜨네염...
어떻게 해결을 해야 할까요....
2
COMMENTS
-
-
홍성락 wrote:
> 처버 ^^ wrote:
> > procedure TForm1.TreeViewMouseDown(Sender: TObject;
> > Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
> > var
> > subNode : TTreeNode;
> > begin
> > if Button = mbRight
> > then
> > begin
> > if TreeView.Selected.Level = 0
> > then
> > begin
> > subNode := TreeView.GetNodeAt(X,Y);
> > PopupMenu1.Popup(X,Y);
> > end
> > else TreeView.Selected.Level = 1
> > then
> > begin
> > subNode := TreeView.GetNodeAt(X,Y);
> > PopupMenu2.Popup(X,Y);
> > end
> > ;
> > end
> > ;
> >
> > 이렇게 선택한 노드마다 팝업메뉴를 다르게 띄우는 건게, 이상하세 팝업메뉴의 위치가 윈도의 끝자락에서 뜨네염...
> >
> > 어떻게 해결을 해야 할까요....
> ///////////////////////////////////////////////////////////
> 팝업메뉴의 Popup는 모니터상 좌표이므로 여러방법이 있습니다.
> 1.마우스현위치구해조정하기
> PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);
> 2.TreeView속성의 팝업메뉴이용하기
> if TreeView.Selected.Level = 0 then begin
> TreeView.PopupMenu := PopupMenu1;
> end
> else if TreeView.Selected.Level = 1 then begin
> TreeView.PopupMenu := PopupMenu2;
> end
> else TreeView.PopupMenu := nil;
> 3.부모 컨포넌트드
(NOTICE) You must be logged in to comment on this post.
-
- jwonshin
- 2001.09.07 01:40
- 0 COMMENTS
- /
- 0 LIKES
-
- 처버 ^^
- •
- 2001.09.07 01:08
- 2 COMMENTS
- /
- 0 LIKES
procedure TForm1.TreeViewMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var subNode : TTreeNode; begin if Button = mbRight then begin if TreeView.Selected.Level = 0 then begin subNode...-
홍성락•2001.09.07 04:13처버 ^^ wrote: > procedure TForm1.TreeViewMouseDown(Sender: TObject; > Button: TMouseButton; Shi...
-
처버 ^^•2001.09.07 05:29홍성락 wrote: > 처버 ^^ wrote: > > procedure TForm1.TreeViewMouseDown(Sender: TObject; > > Butt...
-
- 최월자
- •
- 2001.09.07 01:06
- 1 COMMENTS
- /
- 0 LIKES
-
노력중인 초보•2001.09.07 10:11최월자 wrote: > 쉐어웨어를 보면 도움말이 지원되어 > 있는데 > 여러책을 살펴보아도 도움말 작성법이...
-
- 초보자
- •
- 2001.09.07 00:54
- 1 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.09.07 05:53초보자 wrote: > 스트링그리드에서 각 셀에 마우스를 올리면 서로 다른 힌트를 나타나게 하고 있읍니다. ...
-
- 델초보
- •
- 2001.09.07 00:53
- 1 COMMENTS
- /
- 0 LIKES
-
이경문•2001.09.20 11:58네, listening합니다. socket -> bind -> listen -> accept 구조 아시져? 컴포넌트가 내부적으로 다 알아...
-
- 이기주
- 2001.09.07 00:51
- 0 COMMENTS
- /
- 0 LIKES
-
- mina
- •
- 2001.09.07 00:40
- 2 COMMENTS
- /
- 0 LIKES
-
텃밭•2001.09.07 03:08try except end 문을 써 보세요.. procedure TForm1.SpeedByutton1onClick(Sender: TObject); var s ...
-
mina•2001.09.07 19:35너무 감사합니다. try를 쓰니까 정말 Access Violation 에러가 안뜨네요. 그런데, 한가지 더 여쭤보자...
-
- 초자
- 2001.09.07 00:07
- 0 COMMENTS
- /
- 0 LIKES
-
- 하록
- 2001.09.07 00:21
- 0 COMMENTS
- /
- 0 LIKES
-
- 델초보
- 2001.09.06 23:42
- 0 COMMENTS
- /
- 0 LIKES
-
- MUTGGO
- •
- 2001.09.06 23:34
- 2 COMMENTS
- /
- 0 LIKES
-
홍성락•2001.09.07 08:10MUTGGO wrote: > DBGRID의 DrawColumnCell이벤트에 > > TStringGrid(DBGrid1).FixedCols := 2; > >...
-
구자균•2001.09.07 03:20저도 칼럼 고정땜시리 고생을 많이 했는데.. 칼럼 고정되는 컴포넌트가 있을거여요. 저도 찾다찾다 못...
-
- MUTGGO
- 2001.09.06 23:18
- 0 COMMENTS
- /
- 0 LIKES
-
- 델파이3.0
- 2001.09.06 23:10
- 0 COMMENTS
- /
- 0 LIKES
-
- 조승식
- 2001.09.06 23:11
- 0 COMMENTS
- /
- 0 LIKES
-
- tobird
- 2001.09.06 23:05
- 0 COMMENTS
- /
- 0 LIKES
-
- 선지헌
- 2001.09.06 22:01
- 0 COMMENTS
- /
- 0 LIKES
-
- 유혁진
- 2001.09.06 21:12
- 0 COMMENTS
- /
- 0 LIKES
-
- 초보
- 2001.09.06 21:28
- 0 COMMENTS
- /
- 0 LIKES
-
- goodman
- 2001.09.06 20:41
- 0 COMMENTS
- /
- 0 LIKES
-
> procedure TForm1.TreeViewMouseDown(Sender: TObject;
> Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
> var
> subNode : TTreeNode;
> begin
> if Button = mbRight
> then
> begin
> if TreeView.Selected.Level = 0
> then
> begin
> subNode := TreeView.GetNodeAt(X,Y);
> PopupMenu1.Popup(X,Y);
> end
> else TreeView.Selected.Level = 1
> then
> begin
> subNode := TreeView.GetNodeAt(X,Y);
> PopupMenu2.Popup(X,Y);
> end
> ;
> end
> ;
>
> 이렇게 선택한 노드마다 팝업메뉴를 다르게 띄우는 건게, 이상하세 팝업메뉴의 위치가 윈도의 끝자락에서 뜨네염...
>
> 어떻게 해결을 해야 할까요....
///////////////////////////////////////////////////////////
팝업메뉴의 Popup는 모니터상 좌표이므로 여러방법이 있습니다.
1.마우스현위치구해조정하기
PopupMenu1.Popup(Mouse.CursorPos.X,Mouse.CursorPos.Y);
2.TreeView속성의 팝업메뉴이용하기
if TreeView.Selected.Level = 0 then begin
TreeView.PopupMenu := PopupMenu1;
end
else if TreeView.Selected.Level = 1 then begin
TreeView.PopupMenu := PopupMenu2;
end
else TreeView.PopupMenu := nil;
3.부모 컨포넌트드