edite girilen sayı hep soldan yazıyor

[selman]

SelamunAleyküm
Herkese iyi Çalışmalar
Arkadaşlar bir konu da sizden yardım istiyorum
Şimdi ben girdiğim sayıyı hem virgüllü hemde sağdan yazdırmak istiyorum
Virgüllü yazdırmayı yapabildim. Fakat Sağdan bir türlü yazdıramadım.Forumda arama yaptırmıştım.
Sağdan yazdırma ile alakalı bir şey bulamadım. Yardım Ederseniz sevnirim.Hepinize iyi çalışmalar

[TRSoft]

A.S.
@selman kardeşim forumda bayağı arama yaptım diyorsun ama bu konu bir çok defa geçti hatta @husonet arkadaşımız bu konuda bir bileşen bile yazdı. Makale ve İpuçu kısmında HusoEdit bir incelersen iyi olacağı kanaatindeyim

[selimr]

rx componentlerinde bu özellikte bir edit var
ayrıca rx ide içine alan jedi kompenentlerindede var
bunlardan birini kullanabilirsin

[Delhici]

Bu kod işini görür arkadaşım.. Kolay gelsin. unit just;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
Dialogs,
StdCtrls;

type
TJustaEdit = class(TEdit)
private
{ Private declarations }
fAlignment : TAlignment;
protected
{ Protected declarations }
procedure SetAlignment(Value: TAlignment);
public
{ Public declarations }
procedure createParams(var Params : TCreateParams); override;
published
{ Published declarations }
property Alignment: TAlignment read FAlignment write SetAlignment
default taLeftJustify;
end;

procedure Register;

implementation
procedure TJustaEdit.CreateParams(var Params : TCreateParams);
var
x : Longint;
begin
inherited CreateParams(Params);
case fAlignment of
tarightjustify: x := es_right;
taleftjustify : x := es_left;
tacenter : x := es_center;
end;
params.style := params.style or x;


end;
procedure TJustaEdit.SetAlignment;
begin
if FAlignment <> Value then
begin
FAlignment := Value;
RecreateWnd;
end;
end;
procedure Register;
begin
RegisterComponents('Samples', [TJustaEdit]);
end;

end.