TEdit

[VAN32]

Всем доброго времени суток!

У меня такая проблема. Моя форма содержит несколько TEdits, в котором пользователь вводит имя файла. Я хочу, чтобы моя программа поддержки перетаскивания, но я могу это сделать только для одного из тех TEdits (не для всех из них). Может кто поможет мне?

uses
ShellApi;

type
TForm1 = class(TForm)
Edit1: TEdit;
procedure FormCreate(Sender: TObject);
procedure WMDropFiles(var Msg: TMessage); message WM_DROPFILES;

procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Handle, True);
end;


procedure TForm1.WMDropFiles(var Msg: TMessage);
var
N: Integer;
NumFiles: Word;
TheFile: array[0..255] of Char;
Where: TPoint;
begin
DragQueryPoint(THandle(Msg.WParam), Where);
NumFiles := DragQueryFile(THandle(Msg.WParam), $FFFFFFFF, nil, 0);
for N := 0 to NumFiles-1 do
begin
DragQueryFile(THandle(Msg.WParam), N, TheFile, SizeOf(TheFile));
edit1.Text := TheFile;
end;
DragFinish(THandle(Msg.WParam));
end;

[ArtGrek]

Я хочу, чтобы моя программа поддержки перетаскивания

чего? текста из фаила в едит, из едит в едит ... ?

[VAN32]

Файл в Edit

[ArtGrek]

procedure TForm1.WMDROPFILES(var Message: TWMDROPFILES);
function DropFile(Mes: TWMDropFiles):String;
var
  buffer: array[0..255] of char;
begin
  Result := '';
  DragQueryFile(Mes.Drop,0,nil,0);
  DragQueryFile(Mes.Drop,0,@buffer,sizeof(buffer));
  Result := buffer;
end;
begin
  PChar(DropFile(Message)) //то что красным ето путь и имя фаила, ипользуите его дя загрузки
end;

[VAN32]

Сообщение от ArtGrek

procedure TForm1.WMDROPFILES(var Message: TWMDROPFILES);
function DropFile(Mes: TWMDropFiles):String;
var
  buffer: array[0..255] of char;
begin
  Result := '';
  DragQueryFile(Mes.Drop,0,nil,0);
  DragQueryFile(Mes.Drop,0,@buffer,sizeof(buffer));
  Result := buffer;
end;
begin
  PChar(DropFile(Message)) //то что красным ето путь и имя фаила, ипользуите его дя загрузки
end;

Спасибо, но это не то