PanelをPopupMenuのように自動的にかくすには？ (ID:41410)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); begin case Msg.message of WM_LButtonDown, WM_RButtonDown: Panel1.Visble := False; end; end; これに適当に座標の判定を組み込むとか。