Klasse soll Anwendung nur bei best. Änderung benachrichtigen

[spaxxn]

Hihi, du löst den Event auch gar nicht aus


Hast du dem OnChange eine Procedure zugewiesen?

Zitat von Sunshine21:

Delphi-Quellcode:

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

procedure TMyClass.testTimer(Sender:TObject);
begin
    GetAvailable;
    ShowMessage('Timer läuft auch');
    OnChange;  <---------- z.B.
end;

function TMyClass.GetAvailable: Boolean;
begin
  if FStatus = true then
  result := true
  else
  result := false
end;

end.