Problem mit Drag&Drop

[fwsp]

hallo,

ich möchte gern ein ein bisschen hin und her droppen, aber es will nicht so wie ich will :(
wenn ich was in die ComboBox droppe, kann ich keine reaktion feststellen (Debugger springt nicht in WMDROPFILES). getestet hab unter vista & xp. der code stammt aus der code lib ( http://www.delphipraxis.net/internal...t.php?t=118084 )
wo mach ich nen fehler, bzw hat wer nen tipp für mich? :stupid:

danke
fwsp

Delphi-Quellcode:

procedure TFBand.FormCreate(Sender: TObject);
begin
  ...
  DragAcceptFiles(ComBo.Handle, True);
end;

procedure TFBand.WMDROPFILES(var Msg: TMessage);
var
  i, Counts, Size: Integer;
  PCharFileName: PChar;
begin
  inherited;

  PCharFileName := nil;
  Counts := DragQueryFile(Msg.WParam, $FFFFFFFF, PCharFileName, 255);

  for i := 0 to Counts - 1 do
  begin
    Size := DragQueryFile(Msg.WParam, i, nil, 0) + 1;
    PCharFileName := StrAlloc(Size);
    DragQueryFile(Msg.WParam, i, PCharFileName, Size);
    DragDropStr := string(PCharFileName);
    ComBo.Text := DragDropStr;
    ShowMessage('bäm!');
    StrDispose(PCharFileName);
  end;

  DragFinish(Msg.WParam);
end;

[littleDave]

Wie hast du die Procedure im interface-Teil der Klasse erstellt? So?:

Delphi-Quellcode:

type
  TFBand = class(...)
  protected
    procedure WMDROPFILES(var Msg: TMessage); message WM_DROPFILES;
  end;

(auf den hinteren Teil (message WM_DROPFILES) ist zu achten)

[fwsp]

hab ich so drin

Delphi-Quellcode:

type
  TFBand = class(TForm)
  private
    procedure WMDROPFILES(var Msg: TMessage); Message WM_DROPFILES;
  end;