dragdrop

[EWeiss]

Zitat von himitsu:

Und dann noch, ob es absolute Positionen sind, oder Relative und wenn relativ, zu was sind sie relativ.

Delphi-Quellcode:

    WM_DROPFILES:
    begin
      nFilesDropped := DragQueryFile(wP, LongWord(-1), '', 0);
      sFileName := '';

      if nFilesDropped = 1 then
      begin
        SetLength(sFileName, DragQueryFile(wP, 0, nil, 0));
        DragQueryFile(wP, 0, @sFileName[1], Length(sFileName) + 1);
        sFileName := LowerCase(sFileName);

        goProgBar.Dirty := True;
        oButton.BmpFile := sFileName;
        IconHandle := GetHIconFromFile(sFileName);
        img := SKAERO_GetButImageBackProperty(ButtonHandle); // GetWindowFromPoint wird in WM_MOUSEMOVE eingelesen , ButtonHandle 
      end;
      DragFinish(wP);
      SetForegroundWindow(WinHandle);
    end;

Ich ziehe irgendeine Datei über meinen Button extrahiere daraus das Icon
anschließend will ich dieses mit dem Image des Button Kombinieren.
Das geht aber nicht da ich so nicht an das Handle des Button komme.

EDIT:
Bin ja heute wieder so was von bescheuert...
Ohne das einholen der CursorPos kann es ja auch nicht gehen.

gruss