Ich hab ihn nochmal bissl ausgeschmückt, meinen Text.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Edit1.Handle, True);
DragAcceptFiles(Edit2.Handle, True);
Application.OnMessage := AppMessage;
PopupMode := pmAuto; //BorderIcons := [biSystemMenu];
end;
Und jetzt sag mir, ob deine Edits immernoch Drag&Drop akzeptieren?
[edit] doch nicht BorderIcons ... da wird es nur bei
MDI-Childs ausgelöst
, aber auch durch anderen Aktionen wird
TWinControl.RecreateWnd ausgelöst.
Ach ja, noch was gaaaaaaanz Wichtiges .. Niemals Application.OnMessage verwenden, sondern
TApplicationEvents.OnMessage ,
denn wenn man das hier auf zwei Forms so macht, dann wird es nur bei einer Form funktionieren, da man das Application.OnMessage der ersten Form überschreibt.