Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
25. Jul 2006
Nein - du musst die Eigenschaft Position des UpDown-Controls mit diesem Wert belegen:
function Before(const s, subStr: String): String;
var
i: Integer;
begin
i := Pos(subStr, S);
if i = 0
then Result := S
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
25. Jul 2006
Herzlich willkommen in der Delphi-PRAXiS.
Wenn das Edit-Feld nicht direkt manipuliert werden muss, dann erreichst du dein Ziel über die Komponente TUpDown recht einfach:
procedure TDemoForm.UpDownChanging(Sender: TObject;
var AllowChange: Boolean);
begin
with Sender as TUpDown do
Edit.Text := Format('%.1f mm', );