この発言は
#01406　ぜえた          さんのDrag & Drop でファイル名を受け渡す
に対するコメントです



訂正＆補足です。

 >procedure TForm1.FileListBox1MouseMove(Sender: TObject; Shift: TShiftState;
 >...
 >var
 >...
 >  Effect: DWORD;
  Effect: Longint; // Delphi4以降ではこうしてください。

あと、次の設定を 実行時(FormCreate)か設計時(オブジェクトインスペクタ)
に行ってください。

procedure TForm1.FormCreate(Sender: TObject);
begin
  DirectoryListBox1.FileList:= FileListBox1;
  FileListBox1.MultiSelect:= true;
end;

妙義のかたつむり さん、多謝！

                                                    ぜえた (QZC05100)
 


Original document by ぜえた          氏 ID:(QZC05100)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。