D2009 - TSpinEdit hat AlignWithMargins aber kein Align

[KodeZwerg]

Delphi Version: Delphi 2009
Objekt: TSpinEdit

Ich bin gerade dabei eine GUI mit Align-Objekten zu versehen, unter anderem auch SpinEdits für Zahlen.
Nun stehe ich vor folgendem Problem, das Control besitzt bei Delphi 2009 kein Align.

Weiß jemand Rat? Oder eine Lösung mit anderen Standard-Komponenten die vereint das gleiche machen wie SpinEdit aber halt Align'ed.

[Alter Mann]

Doch hat es:wink:, es ist nur nicht published.

[KodeZwerg]

Delphi-Quellcode:

  TSpinEdit = class(TCustomEdit)
  private
    FMinValue: LongInt;
    FMaxValue: LongInt;
    FIncrement: LongInt;
    FButton: TSpinButton;
    FEditorEnabled: Boolean;
    function GetMinHeight: Integer;
    function GetValue: LongInt;
    function CheckValue (NewValue: LongInt): LongInt;
    procedure SetValue (NewValue: LongInt);
    procedure SetEditRect;
    procedure WMSize(var Message: TWMSize); message WM_SIZE;
    procedure CMEnter(var Message: TCMGotFocus); message CM_ENTER;
    procedure CMExit(var Message: TCMExit);   message CM_EXIT;
    procedure WMPaste(var Message: TWMPaste);   message WM_PASTE;
    procedure WMCut(var Message: TWMCut);   message WM_CUT;
  protected
    procedure GetChildren(Proc: TGetChildProc; Root: TComponent); override;
    function IsValidChar(Key: Char): Boolean; virtual;
    procedure UpClick (Sender: TObject); virtual;
    procedure DownClick (Sender: TObject); virtual;
    procedure KeyDown(var Key: Word; Shift: TShiftState); override;
    procedure KeyPress(var Key: Char); override;
    procedure CreateParams(var Params: TCreateParams); override;
    procedure CreateWnd; override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
    property Button: TSpinButton read FButton;
  published
    property Anchors;
    property AutoSelect;
    property AutoSize;
    property Color;
    property Constraints;
    property Ctl3D;
    property DragCursor;
    property DragMode;
    property EditorEnabled: Boolean read FEditorEnabled write FEditorEnabled default True;
    property Enabled;
    property Font;
    property Increment: LongInt read FIncrement write FIncrement default 1;
    property MaxLength;
    property MaxValue: LongInt read FMaxValue write FMaxValue;
    property MinValue: LongInt read FMinValue write FMinValue;
    property ParentColor;
    property ParentCtl3D;
    property ParentFont;
    property ParentShowHint;
    property PopupMenu;
    property ReadOnly;
    property ShowHint;
    property TabOrder;
    property TabStop;
    property Value: LongInt read GetValue write SetValue;
    property Visible;
    property OnChange;
    property OnClick;
    property OnDblClick;
    property OnDragDrop;
    property OnDragOver;
    property OnEndDrag;
    property OnEnter;
    property OnExit;
    property OnKeyDown;
    property OnKeyPress;
    property OnKeyUp;
    property OnMouseDown;
    property OnMouseMove;
    property OnMouseUp;
    property OnStartDrag;
  end;

Einfach da ein "property Align;" ranhängen?

[himitsu]

Die armen Murmeltiere.
https://quality.embarcadero.com/brow...3?filter=11906

Das SpinEdit war aber schon immer Schrott und schwer zu bedienen.
Ich verwende immer TEdit mit TUpDown.

[Uwe Raabe]

Zitat:

Zitat von himitsu (Beitrag 1407342)

Das SpinEdit war aber schon immer Schrott und schwer zu bedienen.

Mich ärgern immer die ungleich hohen Buttons.

[Dennis07]

Hab das mal gemeldet...

https://quality.embarcadero.com/browse/RSP-21315

Könnt ihr ja upvoten. Sry für das Wiederbeleben dies alten Threads, aber das Problem ist ja noch nicht aus der Welt.

[Whookie]

Zitat:

Zitat von Uwe Raabe (Beitrag 1407345)

Mich ärgern immer die ungleich hohen Buttons.

+1 :thumb: