Delphi初心者のための寺子屋

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

Delphi初心者のための寺子屋 - 暇つぶし2ch335:デフォルトの名無しさん
07/09/20 13:28:00
メニューを外さなくても、直接小窓にメッセージを送ると出るみたい

var pt:TPoint;
begin
pt:=ClientToScreen(Point(Edit1.Left,Edit1.Height));
PostMessage(Edit1.Handle,WM_CONTEXTMENU,Edit1.Handle,pt.x+(pt.y shl 16));
end;

次ページ