Also mit
unicode würde es mir auch besser gefallen,
aber sonst sind es schon hübsche Funktionen
nur deine Demo ist etwas "merkwürdig" verschaltet.
Label.OnClick zur Aktualisierung
'ne einfacher Verbesserung ... hab nicht ständig Lust den UpdateButton, oder auf die Labels zu klicken, nur um die Trackbar-Änderung zu erkennen.
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
TBErrorChange(nil);
end;
procedure TForm1.TBErrorChange(Sender: TObject);
begin
LblError.Caption := 'Max. Fehler: ' + IntToStr(TBError.Position);
Button1.Click;
end;
mehr siehe Anhang.