proceduren (Events) aus Interface

[jaenicke]

Zitat von EWeiss:

Delphi-Quellcode:

var
  SkinBrowseForFile : ISkinBrowseForFile;
//--------------------------
SkinBrowseForFile := TSkinBrowseForFile.create; // Interface erstellen

procedure SkinBrowseForFile.WMMoving(var Msg: TMessage);
begin

end;

Das ist eine Mischung zwischen Deklaration und Aufruf. Der Aufruf muss aber auf ein Interface erfolgen, das aus der DLL bereitgestellt wird. Deshalb verstehe ich gerade nicht was du an der Stelle versuchst.

Ich bin unterwegs und am Handy lässt sich Quelltext schlecht schreiben, deshalb einmal nur kurz die beiden Varianten...

Delphi-Quellcode:

// Aufruf
procedure TfrmChild2.WMMoving(var Msg: TMessage);
var
  SkinBrowseForFile: ISkinBrowseForFile;
begin
  SkinBrowseForFile := TSkinBrowseForFile.Create;
  SkinBrowseForFile.WMMoving(Msg);
end;

Delphi-Quellcode:

// Implementierung (in der DLL soweit ich verstanden habe)
Type
  TSkinBrowseForFile = class(TInterfacedObject, ISkinBrowseForFile)
  public
    procedure WMMoving(var Msg: TMessage);
  end;

procedure TSkinBrowseForFile.WMMoving(var Msg: TMessage);
begin

end;