07/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;
と、いったんメニューを外して、右ボタンを押して離してを送りつければ出るよ