SpinEdit mit Increment ändern

[HobbyProgrammer]

Hallo,
ich hoffe Ihr seid alle gut ins neue Jahr gekommen.
Ich bräuchte mal eure Hilfe. In meinem Projekt habe ich mehrere SpinEdits. Eines davon soll nun aber nicht in konstantem Increment arbeiten, also z.B. 1, 2, 3 usw. , sondern entsprechend der binären Wertigkeit von Bitpositionen, also z.B. 2, 4, 8, 16. Im Source des SpinEdit gibt es die Protected Funktionen 'SaveInc' und 'SaveDec'. Kann ich diese irgendwie ohne viel Aufwand überschreiben? Ich würde gerne vermeiden dafür extra eine Componente/Package schreiben zu müssen.

Grüße
HobbyProgrammer

[relocate]

Man kann doch dem Spinedit ein Value zuweisen. Entsprechend auf das OnChange Ereignis reagieren.

[wp_xyz]

Ich würde kein TSpinEdit nehmen, sondern ein TUpDown mit einem TEdit kombinieren. Das UpDown muss man via Associate kurz mit dem Edit verbinden, damit es sich zum Edit hin anordnet. Aber dann muss man in diesem speziellen Fall die Verbindung wieder lösen, damit das Edit nicht vom UpDown beeinflusst werden kann. Schließlich würde ich einen Eventhandler für TUpDown.OnClick schreiben, in dem der Wert des UpDown (Eigenschaft Position) entsprechend umgerechnet wird:

Code: Alles auswählen

procedure TForm1.UpDown1Click(Sender: TObject; Button: TUDBtnType);
begin
  Edit1.Text := IntToStr(1 shl UpDown1.Position);
end; 

[HobbyProgrammer]

Das TUpDown sieht interessant aus. Ist mir in der Komponenten Palette auch schonmal aufgefallen, hab ich aber noch nie ausprobiert.
Damit werde ich es auf jeden Fall mal versuchen.

[HobbyProgrammer]

So, nun habe ich es mit einem TUpDown versucht, und es funktioniert perfekt.
Vielen Dank für den Tipp.