[Electronic_Arts]

Столкнулся с такой проблемой при перетаскивании файла с с компьютера на компонент...
Дело такое на форме стоит TPageControl на второй странице которого стоит компонент TEdit

Код:

procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
var
  i: integer;
  CountFile: integer;
  size: integer;
  Filename: PChar; 
begin
try
  CountFile := DragQueryFile(Msg.Drop, $FFFFFFFF, Filename, 255);
  if CountFile>1 then exit
  else
  begin
  edit4.Clear;
  size := DragQueryFile(Msg.Drop, i , nil, 0)+1;
  Filename:= StrAlloc(size);
  DragQueryFile(Msg.Drop,i , Filename, size);
  EDIT4.Text:=GetFileNamefromLink(FileName);
  end;
finally
  DragFinish(Msg.Drop); 
end;
end;

код не работает если

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Form1.Edit4.handle, True);
end;

так как Edit4 находиться на TPageControl

А вот если написать

Код:

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

то вся форма реагирует на перетаскивание что и не есть гуд...

Как справиться с такой задачей???