Что то рыбка не ловиться
Код:
type
TEdit4 = class(Vcl.StdCtrls.TEdit)
procedure WMDROPFILES(var Msg: TMessage); message WM_DROPFILES;
end;
Код:
procedure TEdit4.WMDROPFILES(var Msg: TMessage);
var
...
...
begin
...
...
end;
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(form1.edit4.handle, true);
end; |