Deklariere im Public-Abschnitt oder auch Private (was eigentlich Quatsch ist) eine
property
Delphi-Quellcode:
type
TTestClass = class
private
FMyProperty: Boolean;
procedure SetMyProperty(Value: Boolean);
function GetMyProperty: Boolean;
public
// Alternativ zu GetMyProperty kannst du auch einfach FMyProperty einsetzen, da beim Lesen ja nur der aktuelle Wert zurückgegeben werden soll
property MyProperty: Boolean read GetMyProperty write SetMyProperty;
end;
implementation
procedure TTestClass.SetMyProperty(Value: Boolean);
begin
if SomeCondition then // Hier kannst du entscheiden, wann deine Variable gesetzt werden soll
FMyProperty := Value;
end;
function TTestClass.GetMyProperty: Boolean;
begin
Result := FMyProperty;
end;
Alles nur so hier reingeschrieben. Es könnte also auch der ein oder andere (Schreib-)Fehler darin enthalten sein.
Edit: Im Setter (SetMyProperty) kannst du natürlich noch hunderte weitere Schritte ausführen wie z.B. ein paar Buttons je nach Zustand ein- oder ausschalten. Halte den Setter aber so kurz wie möglich.
Delphi-Quellcode:
procedure TTestClass.SetMyProperty(Value: Boolean);
begin
if SomeCondition then // Hier kannst du entscheiden, wann deine Variable gesetzt werden soll
FMyProperty := Value;
DoSomeOtherStuffHere;
end;