Hallo
Anstelle eines OnChange Ereignisses könntest du auch eine eigene Procedure schreiben, über welche
dem Label weiteren Text hinzugefügt. Dabei wird zuvor überprüft, ob die max. Länge nicht schon erreicht wurde.
Delphi-Quellcode:
procedure SetLabelText(ALabel: TLabel; const AText: string; MaxLen: Shortint);
begin
if ALabel.GetTextLen + Length(AText) <= MaxLen then
ALabel.Caption := ALabel.Caption + AText;
end;
Beispiel Aufruf:
Delphi-Quellcode:
procedure TForm1.Button2Click(Sender: TObject);
begin
SetLabelText(Label1,'A', 5);
end;