Hallo Michael,
wenn das Formular die Nachricht WM_DROPFILES empfängt, bezieht sich der
DropPoint auf den Client-Bereich des Formulars. Du musst also die Koordinaten auf die Client-Bereiche der Edit-Controls umrechnen (lassen):
Delphi-Quellcode:
var
DropPoint: TPoint;
begin
:
DragQueryPoint(Msg.WParam, DropPoint);
if IsDropPointInside(DropPoint, edtCarrierFile) then
edtCarrierFile.Text := DroppedFilename
else if IsDropPointInside(DropPoint, edtTrailerFile) then
edtTrailerFile.Text := DroppedFilename;
:
end;
function TfrmSteganosaur.IsDropPointInside (const aDropPoint: TPoint; const aControl: TControl): Boolean;
begin
Result := PtInRect(aControl.ClientRect, aControl.ScreenToClient({Self.}ClientToScreen(aDropPoint)));
end;
Gruß Hawkeye