先輩のコードを見たら、なにやら複雑な実現をしていたので共有しておく。 随分前なので確かではないが、元はこちらを参考にさせていただいた(と思う)。 //下をパネルのOnMouseDownイベントに記述 procedure TForm1.Panel1MouseDown(Sender: TObject; Button:…