Label OnChange?

**Johnny Bravo**

Hi,
ich stehe vor einem kleinen Problem.

Ich prüfe folgendermaßen, wieviele Zeichen sich in einem Label befinden:

Delphi-Quellcode:

			...

if  Wert.GetTextLen = 0 then

    ShowMessage ('Funktioniert');

...

Zur Laufzeit ist das Label leer. Beim anklicken von Images, werden dem Label Werte hinzugefügt:

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.GelbClick(Sender: TObject);

begin

   Wert.Caption := Wert.Caption + ('4');

   Wert.Refresh;

end;

procedure TForm1.GrauClick(Sender: TObject);

begin

   Wert.Caption := Wert.Caption + ('8');

   Wert.Refresh;

end;

usw...

Das Label soll max. 5 Zeichen lang sein, egal welches bild in welcher reihenfolge angeklickt wird.
Am einfachsten wäre das natürlich wenn das Label ein OnChange event hätte - gibts ja nicht.

Wie kann ich das am besten lösen?

mfg

Label OnChange?

Label OnChange?

Forumregeln