Forum: Programmieren allgemein
by DeddyH,
1. Dez 2013
Mach doch mal folgendes Testprojekt: ein Edit und ein TUpDown auf das Formular, Associate vom TUpDown wird das Edit. OnPaint des Forms und OnChangingEx des UpDown werden mit Methoden belegt, das Formular bekommt eine Property mit Setter spendiert, so dass das Ganze so aussieht:
type
TForm1 = class(TForm)
Edit1: TEdit;
UpDown1: TUpDown;
procedure FormPaint(Sender: TObject);
...
Forum: Programmieren allgemein
by DeddyH,
29. Nov 2013
Und was soll an Canvas.Texout falsch sein? Du kannst natürlich auch DrawText oder TextRect oder was weiß ich nehmen, aber das ändert an der generellen Vorgehensweise ja nichts.
Forum: Programmieren allgemein
by DeddyH,
28. Nov 2013
Invalidate allein genügt nicht, es muss ja auch das geänderte Format berücksichtigt werden ;) Ich war nur zu faul, jetzt auch noch eine visuelle Komponente zu schreiben, daher muss das Beispiel genügen :mrgeen:
Forum: Programmieren allgemein
by DeddyH,
28. Nov 2013
Ja und? Eine published-Property mit Setter genügt dafür. Kleine Beispielklasse:
type
TDings = class
private
FNachkommastellen: integer;
FFormatStr: string;
procedure SetNachkommastellen(const Value: integer);
function GetTestValue: string;
public
constructor Create;
Forum: Programmieren allgemein
by DeddyH,
28. Nov 2013
Siehe Format oder FormatFloat, da kann man die Anzahl der dargestellten Nachkommastellen festlegen.