Цитата:
|
Сообщение от Electronic_Arts
код не работает если
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Form1.Edit4.handle, True);
end;
так как Edit4 находиться на TPageControl |
PageControl тут ни при чем. если DragAcceptFiles вызываешь для Edit, то у него и лови сообщение WM_DROPFILES, а не у формы.
Код:
TEdit = class(StdCtrls.TEdit)
procedure WMDROPFILES(var Msg: TMessage); message WM_DROPFILES;
end;