Delphi csak karakterek TEdit-be való bevitele, hogyan?

Egy eseménnyel (onKeyUp leginkább) figyeled, hogy csak számjegyeket ír-e be, ha nem, akkor törlöd a bevitt karaktert.

Vagy használhatsz TSpinEdit komponenst, az csak számokat fogad el.

Szia.

Vagy még :

Additional - MaskEdit (MASK)

MaskEdit1 properties-nél : Editmask és vagy kiuválasztod a mintából vagy szerkeszted.

Sok Sikert.

Üdv.

Ezt a komponenst telepítsd fel, ebben van egy OnlyNumber kapcsoló:

unit AlignEdit2;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls;

type

TAlignEdit2 = class(TEdit)

private

FAlignment: TAlignment;

FOnlyNumber: boolean;

procedure SetAlignment(const Value: TAlignment);

procedure SetOnlyNumber(const Value: boolean);

protected

procedure CreateParams(var Params: TCreateParams); override;

public

{ Public declarations }

published

property Align;

property Alignment: TAlignment read FAlignment write SetAlignment;

property OnlyNumber: boolean read FOnlyNumber write SetOnlyNumber;

end;

procedure Register;

implementation

procedure Register;

begin

RegisterComponents('Samples', [TAlignEdit2]);

end;

procedure TAlignEdit2.CreateParams(var Params: TCreateParams);

const

al: array[TAlignment] of integer=(ES_LEFT, ES_RIGHT, ES_CENTER);

begin

inherited CreateParams(Params);

with Params do begin

Style:=Style+al[FAlignment];

if FOnlyNumber then begin

Style:=Style+ES_NUMBER;

end;

end;

end;

procedure TAlignEdit2.SetAlignment(const Value: TAlignment);

begin

FAlignment := Value;

RecreateWnd;

end;

procedure TAlignEdit2.SetOnlyNumber(const Value: boolean);

begin

FOnlyNumber := Value;

RecreateWnd;

end;

end.