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:
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