Klasse soll Anwendung nur bei best. Änderung benachrichtigen

[Sunshine21]

Hab mich ein wenig zu früh gefreut...

Das Programm läuft jetzt zwar aber irgendwie klappt das mit dem Timer noch nicht richtig. Wenn ich den Timer anschalte kommen sofort mit jedem Takt Nachrichtenfenster auch wenn noch keine Änderung gemacht wurde. Wenn ich auf den Button Status ändern klicke dann kommt wie gewünscht das Nachrichtenfenster. War das bei dir auch so?

[DeddyH]

Du rufst ja im Timer auch immer OnChange auf, ohne auf Änderung zu prüfen.

[Sunshine21]

Achso ich dachte das passiert automatisch

Muss ich jetzt den Status mit einer Hilfsvariable zwischenspeichern um vergleichen zu können oder wie macht man das am elegantesten?

[DeddyH]

Wozu brauchst Du eigentlich den Timer? Wenn sich der Status ändert, bekommst Du es doch mit.

[Sunshine21]

Leider nicht denn der Status ist ein Flag in der Windows WMI und kann sich jederzeit ändern. Der Status wird also über diese Funktion abgefragt und sollte sich was ändern soll er das der Anwendung melden.

[DeddyH]

Dann wäre es IMO wirklich besser, sich den alten Status zu merken und zu vergleichen.

[Sunshine21]

Zitat von spaxxn:

Zitat von Sunshine21:

    procedure DoChange;     OnChange_Proc = procedure of object;

So müsste das gehen! War ein wenig in Gedanken, Aber DeddyH hats getroffen

Grund: Im Hauptform wurde Sender als Parameter übergeben, aber vom OnChange gar nicht angefordert. Mal in normalem deutsch ausgedrückt...

Da hätte ich noch eine kurze Frage dazu. Wenn ich Parameter übergeben möchte müssen die dann in der Klasse in     OnChange_Proc = procedure (Parameter1 : string, Parameter2 : Boolean) of object; angegeben werden oder im Hauptform procedure DoChange(Parameter1 : string, Parameter2 : Boolean) oder gar beides?

++++++++++++++++++++++++++++++++++++++++++++++++++ ++++++++++++

"Nur" fürs Verständnis....

Delphi-Quellcode:

procedure TMyClass.OnChange;
begin
  if Assigned(FOnChange) then
    FOnChange;
end;

procedure TMyClass.setStatus(value: Boolean);
begin
  FStatus := value;
  if Assigned(FOnChange) then
    FOnChange;
end;

Wie genau funktioniert das mit dem Assigned

[DeddyH]

Zitat:

OnChange_Proc = procedure (Parameter1 : string, Parameter2 : Boolean) of object;

Genauso geht das. Die zuzuweisende Methode muss dann dieselbe Signatur (also die selben Parameter) besitzen. Und Assigned prüft, ob eine Methode zugewiesen wurde. Im Detail heißt das, es wird nachgesehen, ob der Methodenzeiger nil ist.

[spaxxn]

Woran lag es? würde mich interessieren? OnClick nicht gebunden gewesen?

[Sunshine21]

Hallo spaxxn, hatte es gestern zum laufen gebracht als ich einfach vor dem Kompilieren die Buttons durch doppelklick auf dem Formular eingebunden habe (glaube das geht doch so, oder?)

Leider verstehe jetzt gar nichts mehr. Wollte nochmal ein neues Projekt starten und jetzt kommt wieder eine Fehlermeldung sobald ich einen der beiden Button drücke:
Exception-Klasse EAccessViolation mit Meldung 'Zugriffsverletzung bei Adresse 0045C365 in Modul 'Project1.exe'. Lesen von Adresse 00000004'. Prozess Project1.exe (1472)
Was hab ich jetzt schon wieder falsch gemacht?

Kannst du nochmal kurz versuchen ob die beiden Units 1:1 bei dir Laufen? Arbeite nämlich auf zwei unterschiedlichen Rechner und will ausschliessen dass es am Code liegt.