ファイルドロップされたファイル名の保存先

解決

DnD 2008-07-10 00:29:29 No: 31170

こんにちは、以前投稿されていた記事を参考にプログラミングをしています。

https://www.petitmonte.com/bbs/answers?question_id=513

OLE Drag&Dropコンポーネントを追加し、
ファイルドロップ実装までは行い、動作しました。

今回私が行いたいのは、ドロップした画像のファイルの名前をLabelに表示したいと思っています。
ファイルドロップしたファイルパスは
>FileDropTarget1.DroppedFiles.Strings[0]
で取得できるのは、わかったのですが、肝心のファイル名がどこにあるかわかりません。

procedure TForm1.FileDropTarget1FileDrop(aSender: TObject;
  var aContext: TDragContext);
begin
  Image1.Picture.LoadFromFile(FileDropTarget1.DroppedFiles.Strings[0]);
  //Form1.Label1.Caption := ;//ここがわかりません。
end;

お手数ですが、どなたかお付き合いお願いいたします。

にしの 2008-07-10 01:04:03 No: 31171

ファイル名がわからなければ、
> Image1.Picture.LoadFromFile(FileDropTarget1.DroppedFiles.Strings[0]);
でファイルを開くことができないと思いますが・・・。
ファイル名だけ取得する関数は、ExtractFileNameです。
たとえば、
Label1.Caption := ExtractFileName('C:\Program Files\Hoge\fileName.jpg');
だとすれば、Label1のキャプションには'filename.jpg'が入ります。

DnD 2008-07-10 01:42:41 No: 31172

即答ありがとうございました。
できましたー。
いつも、ログでは影ながらお世話になっております。
もっと精進できるようがんばります。