123****89 şeklinde maskeleme

[kodamelesi]

Merhaba, 
TEdit nesnesinden türetilen basit bir EditBox nesnesi.

unit KodAmelesi;

interface

uses
 System.SysUtils, System.Classes, Vcl.Controls, Vcl.StdCtrls, Vcl.ExtCtrls;


type
 TKAEdit = class(TEdit)
 strict private
   FVeri: string;
 published
  property Veri : string read FVeri write FVeri;
 protected
  procedure DblClick(Sender : TObject);
  procedure Exit(Sender : TObject);
 public
  constructor Create(AOwner : TComponent); override;
 end;

procedure Register;

implementation

uses
 System.StrUtils;

procedure Register;
begin
RegisterComponents('Kod Amelesi', [TKAEdit]);
end;


{ TKAEdit }

constructor TKAEdit.Create(AOwner: TComponent);
begin
 inherited Create(AOwner);
 OnDblClick := DblClick;
 OnExit     := Exit;
end;

procedure TKAEdit.DblClick(Sender: TObject);
begin
Self.Text := FVeri;
end;

procedure TKAEdit.Exit(Sender: TObject);
var tmpStr : string;
begin
FVeri := Self.Text;
tmpStr := Self.Text;
{
 Açıklama : StuffString fonksiyonu rmzgenius tarafından verilen cevaptan alınmıştır.
 Bağlantı : http://www.delphican.com/showthread.php?...2#pid28932
 Tarih    : 20190517
}
Self.Text := StuffString(tmpStr, 2, 4, '*****');
end;

end.