- 333 名前：デフォルトの名無しさん mailto:sage [2007/09/20(木) 12:53:09 ]
- >>332 後半なら
var SaveMenu:TPopupMenu;
begin
SaveMenu:=Edit1.PopupMenu;
Edit1.PopupMenu:=nil;
SendMessage(Edit1.Handle,WM_RBUTTONDOWN,Edit1.Left,Edit1.Height);
SendMessage(Edit1.Handle,WM_RBUTTONUP,Edit1.Left,Edit1.Height);
Edit1.PopupMenu:=SaveMenu;
end;
と、いったんメニューを外して、右ボタンを押して離してを送りつければ出るよ
