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?

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;