どこかにTipsとかでありそうなネタだけど。 イベントに入ってきた所で最初にイベントに対してnilを代入する。 処理が終わったらイベントにメソッドを設定し直す。 procedure TForm1.Button1Click(Sender: TObject); begin TControl(Sender).OnClick := Nil; …
引用をストックしました
引用するにはまずログインしてください
引用をストックできませんでした。再度お試しください
限定公開記事のため引用できません。