Hai ... lam kenal semua .. mau tanya nih .. aku ngerjain angka yg berhubungan rupiah. Gimana sih supaya tedit rata kanan ? kalo ndak bisa , Boleh enggak diakali dengan trichedit - ada kemungkinan error nggak ... makasih

Gak ada yang bales ... yah sudah kok repot ..sepi .... hening .... dan hikmat

kalo mau pakai komponent gratisTExtEditCtrl linksnya disini http://cc.borland.com/Item.aspx?id=20007 daftar dulu untuk bisa download TExtEditCtrl is derived from the standard Delphi TLabeledEdit control to add input validation methods and properties which depends on the type of input: (positive) integer, real, currency, letters only, filename, folder name, hexadecimal number etc. An alignment property for the text in the edit-box is also added.

//pertama - tama : type TEdit = class(StdCtrls.TEdit) private FAlignment: TAlignment; procedure SetAlignment(Value: TAlignment); protected procedure CreateParams(var Params: TCreateParams); override; public property Alignment: TAlignment read FAlignment write SetAlignment end; //trus buat prosedur nya : procedure TEdit.CreateParams(var Params: TCreateParams); const Alignments: array[Boolean, TAlignment] of DWORD = ((ES_LEFT, ES_RIGHT, ES_CENTER),(ES_RIGHT, ES_LEFT, ES_CENTER)); begin inherited CreateParams(Params); with Params do Style := Style or Alignments[UseRightToLeftAlignment, FAlignment] end; procedure TEdit.SetAlignment(Value: TAlignment); begin if FAlignment <> Value then begin FAlignment := Value; RecreateWnd; end; end; //udah gitu tinggal pake, misalnya di event OnCreate : procedure TForm1.Form1Create(Sender:TObject); begin Edit1.Alignment := taLeftJustify; Edit1.Alignment := taCenter; Edit1.Alignment := taRightJustify end; mudah2an bisa membantu

Makasih yah boss..