ich hatte ein File Drag & Drop in mein Program eingebaut und dazu im Prinzip folgendes Programm gemacht:
Code: Alles auswählen
Unit Unit1;
{$MODE objfpc}{$H+}
Interface
Uses
Classes, SysUtils, Forms, Controls, Graphics, Dialogs, StdCtrls;
Type
{ TForm1 }
TForm1 = Class(TForm)
Button1: TButton;
Edit1: TEdit;
Procedure FormDropFiles(Sender: TObject; Const FileNames: Array Of String);
private
public
End;
Var
Form1: TForm1;
Implementation
{$R *.lfm}
{ TForm1 }
Procedure TForm1.FormDropFiles(Sender: TObject; Const FileNames: Array Of String
);
Begin
edit1.text := FileNames[0];
End;
End.
Wenn ich aber ein Showmessage(Filename[0]) mache sieht es gut aus.
Was mache ich Falsch, ist das ein Bug, wie kriegt man das hin ?