Zitat von
faux:
...
EDIT:
In der Procedure SetValue würde noch das reingehören:
Delphi-Quellcode:
if (Value < 0) or (Value > 9) then
Value := 0;
Das ist doch korrekt so, oder?
Delphi gibt mir immer folgende Warnung aus:
Code:
[Warnung] Unit2.pas(82): Der Vergleich ergibt immer Falsch
(1) ein Byte kleiner 0 gibt es noch nicht!
(2) ich hätte vMain auch weggelassen und dafür TZiffer von TCustomPanel abgeleitet.
