Morgen, K-H!
Zitat von
p80286:
ich hab im Augenblick gut zu tun, darum reagiere ich etwas langsam.
Kein Problem.
Zitat von
p80286:
Leider verstehe ich Deine Einlassungen nicht.
Kommt öfter vor. Irgendwie bin ich im Erklären nicht sooo gut.
Zitat von
p80286:
Wenn ich mich richtig erinnere beinhaltet TNotifyEvent zwei Adressen, die der Routine und die des besitzenden Objektes, da ich aber von OO unabhängig sein will ,was nicht deckungsgleich mit
VCL ist, habe ich diese "Sparversion" gewählt.
Das Callback verstehe ich überhaupt nicht. Die Anzeige ist ja nur nettes Beiwerk für den Benutzer. Die eigentliche Verarbeitung soll ja davon vollkommen unberührt sein. Der ist es egal ob eine Anzeige erfolgt.
Mit Callback hab ich einfach dein CNT_ANZEIGE gemeint. Und in deinem Beispiel holst du dir das upzudatende Label ja über die globale Variable Form1. Das wäre halt
IMHO etwas "sauberer", wenn du dir diese Information über die (impliziten) Self-Variablen eines TNotifyEvent oder einen expliziten Data-Pointer besorgst, etwa so:
Delphi-Quellcode:
procedure CNT_ANZEIGE(instr:string; Data: Pointer);
begin
TForm1(Data).Label1.Caption:=instr; {ein String kann auch mehr sein als eine Zahl }
application.ProcessMessages; {sonst gibts keine Anzeige }
end;
Das ist aber alles Geschmackssache, also ignoriere meinen "Senf", wenn deine Lösung funktioniert.
Uli.