Ursprünglichen Wert eines Properties ermitteln.

[s-off]

Hallo,

wieso merkst Du Dir diesen Wert nicht einfach, bevor er das erste Mal geändert wird?

Edit: Denkbar wäre soetwas:

Delphi-Quellcode:

Type
   TMyLabel = Class(TLabel)
   private
      FOriginIn: Boolean;
      FOriginCaption: String;
      Procedure CaptionChange(Var Message: TMessage); message CM_TEXTCHANGED;
   published
      Property OriginCaption: String read FOriginCaption;
   End;

Procedure TMyLabel.CaptionChange(Var Message: TMessage);
Begin
   If Not FOriginIn Then
      FOriginCaption := Caption;

   Inherited;
   FOriginIn := True;
End;

[...]

Procedure TForm1.Button1Click(Sender: TObject);
Begin
   LBL.Caption := 'Ich ändere mal die Caption';
End;

Procedure TForm1.Button2Click(Sender: TObject);
Begin
   LBL.Caption := LBL.OriginCaption;
End;