Label => "Change"

[bitsetter]

Zitat von Jelly:

Was soll denn der Quatsch mit dem Timer

Hallo,
das sehe ich genauso.

Zitat von Jelly:

Hawkeye bietet doch die wunderbare Lösung. Also erstell dir eine neue Komponente, installier sie in ein Package und nutze diese neue Label.

Zitat von Hawkeye219:

Delphi-Quellcode:

type
  TLabel = class (StdCtrls.TLabel)

Er braucht noch nicht mal eine Komponente installieren, denn alle TLabel die sich auf dem Formular befinden, haben jetzt schon das onChange Event.

Das Einzige was man jetzt noch mache muss, ist das onChange Event zur Laufzeit zuzuweisen. Das ist praktisch Copy & Paste Code.

Zitat von Hawkeye219:

Delphi-Quellcode:

procedure TForm1.FormCreate (Sender: TObject);
begin
  Label1.OnChange := LabelChanged;
end;