Flexible Propertys

[Stevie]

Zitat von Sämy:

Hab doch noch mal eine Frage:
Wie kann ich nun ein Event auslösen, wenn dieses Property geändert wird?

Moin,

du musst dir eine Set-Methode schreiben:
procedure SetPrinterName(const Value: string); und diese beim write der Property eintragen:
property PrinterName: string read FPrinterName write SetPrinterName; Ebenso kann man übrigens eine Get-Methode schreiben:
function GetPrinterName: string; Also, in die SetPrinterName schreibst du:

Delphi-Quellcode:

begin
  if Value <> FPrinterName then
  begin
    FPrinterName := Value;
    MeinEvent(...);
  end;
end;