Forum: Win32/Win64 API (native code)
by Luckie,
5. Mär 2010
Ah, besten Dank. Jetzt funktioniert es.
Forum: Win32/Win64 API (native code)
by Luckie,
5. Mär 2010
Noch nicht. Bin gerade an einer anderen Baustelle.
Forum: Win32/Win64 API (native code)
by Luckie,
5. Mär 2010
Nein. QtyDroppedFiles hat den Wert eins, wenn ich eine Datei ziehe. Auch wenn ich sie mit FileIndex := $FFFFFFFF; initialisiere. Und DroppedFilename enthält auch den Dateinamen. Das passt also alles.
Forum: Win32/Win64 API (native code)
by Luckie,
5. Mär 2010
Leider liefert IsDragPointInside immer False.
function TfrmSteganosaur.IsDropPointInside(const aDropPoint: TPoint; const aControl: TControl): Boolean;
begin
Result := PtInRect(aControl.ClientRect, aControl.ScreenToClient({Self.}ClientToScreen(aDropPoint)));
end;
procedure TfrmSteganosaur.AppMessage(var Msg: Tmsg; var Handled: Boolean);
const
BufferLength: word = 255;
Forum: Win32/Win64 API (native code)
by Luckie,
5. Mär 2010
Ja, das habe ich schon versucht mit DragQueryPt aber weder ClientRect noch BoundsRect von den Edit Komponenten liefert bei PtInRect true.
Forum: Win32/Win64 API (native code)
by Luckie,
5. Mär 2010
Ich habe viel gesucht, aber leider nichts zum Thema gefunden. Wie kann ich bei WM_DROPPFILES den Empfänger unterscheiden? Mein bisheriger Code:
procedure TfrmSteganosaur.AppMessage(var Msg: Tmsg; var Handled: Boolean);
const
BufferLength: word = 255;
var
DroppedFilename: string;
FileIndex: word;
QtyDroppedFiles: word;
pDroppedFilename: array of Char;
DroppedFileLength: word;