タイムラインに「SelectDirectoryでルートをデスクトップからコンピュータに変更したい」ってのが流れてきたので調べた事のメモ。SelectDirectoryは内部でSHBrowseForFolderを呼んでる。SHBrowseForFolderのルートの指定は、BROWSEINFO構造体のpidlRootに値…

どこかにTipsとかでありそうなネタだけど。 イベントに入ってきた所で最初にイベントに対してnilを代入する。 処理が終わったらイベントにメソッドを設定し直す。 procedure TForm1.Button1Click(Sender: TObject); begin TControl(Sender).OnClick := Nil; …