Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
23. Nov 2009
Reagiert UpDown nicht auch, wenn man an Edit.Text etwas übergibt?
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
23. Nov 2009
Müßte man mal ausprobieren, aber so könnte es nicht sein, daß TUpDown dann durchdreht.
TUpDown überwacht .OnChange des in Associate eingetragenen Edits
> könnte Probleme geben, wenn man dort was eingibt/reinkopiert
und es könnte sein, daß TUpDown den an .Text übergebenen Wert mit seinem reellen Wert (.Position) überschreibt
:gruebel:
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by himitsu,
23. Nov 2009
Man müßte nichtmal am Speichermanagement rumspielen :angel:
procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
var Value: Real;
begin
Value := StrToFloatDef(Edit2.Text, 0);
case Button of
btNext: Value := Value + 0.1;
btPrev: Value := Value - 0.1;
end;
Edit2.Text := FloatToStrF(Value, ffNumber, 1, 1);