dragacceptfiles verwirrt mich...

[SirThornberry]

was ja auch klar ist da deine Dropfilesmethode eine Messagehandler des Forms ist und nicht der Messagehandler deiner Komponente.

[itashadow]

und wie änder ich das?

[SirThornberry]

Hier mal Anhand einer Listbox wie man das machen kann:

Delphi-Quellcode:

unit Unit1;

interface

uses
  [...]

type
  TListbox = class(StdCtrls.TListBox)
  private
    fOnDropFiles: TWndMethod;
    procedure WMDROPFILES(var Msg: TMessage); Message WM_DROPFILES;
  public
    property OnDropFiles: TWndMethod read fOnDropFiles write fOnDropFiles;
  end;

  TForm1 = class(TForm)
[...]
implementation
[...]
{ TListbox }

procedure TListbox.WMDROPFILES(var Msg: TMessage);
begin
  if Assigned(fOnDropFiles) then
    fOnDropFiles(Msg)
  else
    inherited;
end;

Und schon hat deine Listbox ein Event OnDropFiles. Diesem kannst du dann deine bisherige Methode zuweisen.
(Ja ich weiß man kann es auch direkt in die WMDropFiles-methode packen aber das entspricht nicht der Objectorientierung wenn man da mit anderen Objecten rumhantiert die Global irgendwo liegen)

[xaromz]

Hallo,

wenn Du keine Lust hast, Standardkomponenten abzuleiten, kannst Du auch eine Komponente nehmen, beispielsweise meinen ShellDropper.

Gruß
xaomz

[itashadow]

juhu es läuft

danke SirThornberry

ich hatte es zwar schonmal so wie du es gepostet hast

Allerdings hat er das WMDropfiles nicht mitkompiliert.
Jetzt hab ich die codeoptimierung ausgemacht und neukompiliert und es funktioniert.
Codeoptimierung wieder rein und es geht immernoch.

das einzige was ich noch nicht nachvollziehen kann ist:
if dateiname[dateilaenge-3]+dateiname[dateilaenge-2]+dateiname[dateilaenge-1]+dateiname[dateilaenge] = '.txt' then wenn ich bei der zeile F8 drücke
springt er erst ins END der funktion und führt danach erst den nachfolgenden code aus.