|
ｿｽ@ｿｽｿｽTPointｿｽﾉつゑｿｽｿｽｿｽ
|
ｿｽgｿｽbｿｽvｿｽyｿｽ[ｿｽWｿｽｿｽ
ｿｽeｿｽｿｽｿｽｿｽﾌ過具ｿｽｿｽｿｽｿｽO
ｿｽEC/C++
ｿｽEDelphi
ｿｽEVisual BasicｿｽｿｽｿｽSｿｽｿｽ
ｿｽ@(VB2-VB6ｿｽｿｽ.NETｿｽｿｽｿｽp)
ｿｽEVisual Basic(VB2-VB6)
ｿｽEVisual Basic .NET
ｿｽEVisual C++
ｿｽﾖ連ｿｽTｿｽCｿｽg
ｿｽEpapy's softwarelibrary
Menu 2005/03/25(ｿｽｿｽ) 19:18:38
ｿｽcｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽﾌ子ｿｽｿｽｿｽjｿｽｿｽｿｽ[ｿｽｿｽIｿｽｿｽｿｽﾔのとゑｿｽｿｽA
ｿｽ|ｿｽbｿｽvｿｽAｿｽbｿｽvｿｽｿｽｿｽjｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽﾌ会ｿｽｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾌでゑｿｽｿｽｿｽｿｽA
TPointｿｽﾌ具ｿｽｿｽﾟ包ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽ 2005/03/25(ｿｽｿｽ) 20:02:44
Mouse.CursorPosｿｽBｿｽﾚゑｿｽｿｽｿｽｿｽﾍヘｿｽｿｽｿｽvｿｽｿｽ
ｿｽｿｽｿｽｿｽｿｽgｿｽjｿｽｿｽ 2005/03/25(ｿｽｿｽ) 20:32:20
ｿｽcｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽﾌ子ｿｽｿｽｿｽjｿｽｿｽｿｽ[ｿｽｿｽｿｽｿｽ
style:=tbsDropDownｿｽﾌ趣ｿｽｿｽﾅゑｿｽｿｽｿｽﾋ？
popup menuｿｽｿｽ¥ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽA
DropdownMenuｿｽﾉ適ｿｽｿｽｿｽｿｽTpopupMenuｿｽｿｽｿｽｿｽ闢厄ｿｽﾄるだｿｽｿｽｿｽﾅゑｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽ^ｿｽｿｽｿｽiｿｽEｿｽjｿｽﾈゑｿｽ
procedure TForm1.ToolButton1Click(Sender: TObject);
var pos:TPoint;
begin
pos:=ToolButton1.ClientToScreen(Point(0,0));
PopupMenu1.Popup(pos.X+ToolButton1.Width,pos.Y);
end;
Menu 2005/03/26(ｿｽy) 22:12:00
ｿｽｿｽｿｽｿｽｿｽｿｽAｿｽ答ゑｿｽｿｽ閧ｪｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾝゑｿｽｿｽｿｽｿｽｿｽATMouseｿｽｿｽCursorPosｿｽﾅなゑｿｽﾆなゑｿｽｿｽﾅゑｿｽｿｽﾜゑｿｽｿｽｿｽｿｽｿｽｿｽA
ｿｽTｿｽuｿｽｿｽｿｽjｿｽｿｽｿｽ[ｿｽiｿｽqｿｽｿｽｿｽjｿｽｿｽｿｽ[ｿｽｿｽｿｽﾄ間違えｿｽﾄ擾ｿｽｿｽｿｽｿｽﾜゑｿｽｿｽｿｽｿｽBｿｽｿｽｿｽｿｽｿｽｿｽcｿｽ[ｿｽｿｽｿｽoｿｽ[ｿｽｿｽｿｽｿｽﾈゑｿｽｿｽATMenuｿｽjｿｽﾌ真ｿｽｿｽｿｽﾉ表ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾅゑｿｽｿｽB
ｿｽｿｽｿｽﾌ場合ｿｽAWidthｿｽｿｽｿｽｿｽｿｽｿｽｿｽiｿｽﾆゑｿｽｿｽｿｽｿｽｿｽｿｽ謫ｾｿｽﾌ仕ｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾈゑｿｽｿｽjｿｽﾌで変な位置ｿｽﾉポｿｽbｿｽvｿｽAｿｽbｿｽvｿｽｿｽｿｽﾄゑｿｽｿｽﾜゑｿｽｿｽﾜゑｿｽｿｽB
ｿｽｿｽｿｽｿｽｿｽgｿｽjｿｽｿｽｿｽｿｽｿｽｿｽAｿｽｿｽﾉ擾ｿｽｿｽｿｽｿｽｿｽｿｽﾆゑｿｽｿｽｿｽToolBarｿｽﾅはなゑｿｽTMenuｿｽﾈのでゑｿｽｿｽB
ｿｽ示ゑｿｽｿｽ黷ｽｿｽｿｽﾌは、ｿｽｿｽｿｽｿｽｿｽｿｽｿｽpｿｽｿｽｿｽｿｽｿｽﾄゑｿｽｿｽｿｽｿｽｿｽｿｽｿｽｿｽﾜゑｿｽｿｽB
