송수현 wrote:

> 안녕하세요 날씨가 춥네요 눈이 오려나~ 꾸벅~!

>

> Edit VCL에서 스패이스를 눌렀을때 Popupmenu가 나오게 하였는데

> Popupmenu1.Popup(0,0)으로 하니깐 화면 맨 위 왼쪽에서 나오네요

> Edit VCL안에서 Popup이 되게 할수 있는 방법이 머가 있을까요? *^^*

> 초보라서 잘 모르겠어요 아시는분 답변 부탁 드려요 꾸벅~!

> P.S: 항상 하는말이지만 메일이 전송이 안되요 답변 주시는분들

> 새해 복 많이 받으시고요 행복하세요 *^^*





// 다음과 같이 처리하시면 되겠네요....



procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);

var

pt :TPoint;

begin

if Key = ' ' then

begin

// 현재 캐럿의 위치를 얻는다.

GetCaretPos(pt);

// 스크린 좌표로 변환

pt := Edit1.ClientToScreen(pt);

// 팝업메뉴를 띄운다..

PopupMenu1.Popup(pt.x, pt.y);

// 땡소리 방지...

Key := #0;

end;

end;





// 그럼 이만...