Delphi初心者のための寺子屋

Delphi初心者のための寺子屋 at TECH

333:デフォルトの名無しさん
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;

と、いったんメニューを外して、右ボタンを押して離してを送りつければ出るよ

次ページ

続きを表示

1を表示