Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
Delphi 12 Athens
|
Re: Klasse soll Anwendung nur bei best. Änderung benachricht
26. Jun 2008, 13:55
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;
Detlef "Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|