Arsip: rata kanan ?

 
user image
more 17 years ago

Lembah_Tidar

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
user image
more 17 years ago

Lembah_Tidar

Gak ada yang bales ... yah sudah kok repot ..sepi .... hening .... dan hikmat
user image
more 17 years ago

maulaku

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.
user image
more 17 years ago

Rozz

//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
user image
more 17 years ago

Lembah_Tidar

Makasih yah boss..
more ...
  • Pages:
  • 1
Share to

AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com