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
edite girilen sayı hep soldan yazıyor
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
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
@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
İlimle geçen bir gece,
ibadetle geçen bin geceden hayırlıdır. HZ. MUHAMMED (S.A.)
ibadetle geçen bin geceden hayırlıdır. HZ. MUHAMMED (S.A.)
sağa yanaşık edit..
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.
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.
http://www.bargem.info
Yaşıyorum..... İnadına değil yaptıklarım. Herşey istediğim için oluyor. İstediğim için türkü dinliyorum. İstediğim için çalışıyorum. İstediğim için yaşıyorum ve istediğim için seni seviyorum...
Yaşıyorum..... İnadına değil yaptıklarım. Herşey istediğim için oluyor. İstediğim için türkü dinliyorum. İstediğim için çalışıyorum. İstediğim için yaşıyorum ve istediğim için seni seviyorum...