Klasse soll Anwendung nur bei best. Änderung benachrichtigen

[DeddyH]

Das OnChange-Ereignis soll ausgelöst werden, wenn Status geändert wird?

[spaxxn]

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


Hast du dem OnChange eine Procedure zugewiesen?

Zitat:

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.

[Sunshine21]

Zitat:

Zitat von spaxxn

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

Eigentlich doch ich wollte das machen indem ich über einen Button FStatus ändere? Aber das kann ich ja noch nicht machen da die Klasse so wie ich sie gepostet habe wohl noch nicht läuft wie sie sollte.... denke ich.

[spaxxn]

Ja ne, du musst OnChange in der Funktion/Prozedur von der du die Mitteilung über eine Änderung erhalten möchtest auch aufrufen.

[DeddyH]

Du brauchst eine Setter-Methode.

Delphi-Quellcode:

type Tmyclass = class
  ...
private
  procedure SetStatus(value: Boolean);
  ...
public
  property Status : Boolean read FStatus write SetStatus;
  ...
end;

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

[spaxxn]

Und denke dran, dass in deinem Hauptformular(z.B.) auch eine Methode deklariert und dem OnChange zugewiesen wird.

[DeddyH]

Jepp, sonst kommt wieder nichts an :lol:

[Sunshine21]

Zitat:

Zitat von spaxxn

Und denke dran, dass in deinem Hauptformular(z.B.) auch eine Methode deklariert und dem OnChange zugewiesen wird.

Bingo, das wäre dann wohl die "Schnittstelle" zwischen den beiden die ich suche. Bloß wie mache ich das denn? Eine einfache Instanz mit der die Prozedur Onchange aufgerufen wird reicht ja nicht, oder?

Wenn ich das hinbekommen habe könnte ich nämlich alles mit austesten :)

[spaxxn]

Z.B.:

Delphi-Quellcode:

type
  TMeinFormular= Class(TForm)
  private
    procedure EineFunktion(Sender:TObject);
  end;

im Create dann noch

Delphi-Quellcode:

  MyClassInstance.OnChange_Func := EineFunktion;

[DeddyH]

Delphi-Quellcode:

type TMyForm = class(TForm)
  ...
private
  procedure DoChange; //eine Methode mit identischer Signatur wie in der Klasse
...
end;

...

procedure TMyForm.DoChange;
begin
  ShowMessage('Status geändert');
end;

procedure TMyForm.Wuppdi;
begin
  MyClass := TMyClass.Create;
  ...
  MyClass.OnChange_Func := DoChange; //Zuweisung der Routine
  ...
end;

[edit] Einen Tick zu spät [/edit]