Also Hagen löst das Problem so:
Zitat:
unterstützen einen Progress -> IDECProgress Interface. Du deklarierst in deinem TForm zb. sowas
Delphi-Quellcode: markieren
type
TForm1 = class(TForm, IDECProgress)
procedure Process(const Min,Max,Pos: Int64); stdcall;
end;
und kannst du dein Application.ProcessMessages reinbauen. Übrgeben bekommst du Min,Max und Pos das sind die Größen und Datezeiger/Streamtzeiger.
Allerdings ist meine Klasse nicht vom Typ TForm. Ich wusste gar nicht, dass ich bei class() zwei Argumente reinschreiben kann?! Wenn ich allerdings nur "class(IDECProgress)" schreibe, meckert der Compiler, dass es Klassentyp erforderlich ist. Jemand ne Idee, ich ich diesen Code implementiere, wenn ich eine Klasse ohne Vorfahre habe?
Viele Grüße und Danke nochmal