Arsip: rata kanan ?

more 16 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

more 16 years ago
Lembah_Tidar
Gak ada yang bales ... yah sudah kok repot ..sepi .... hening .... dan hikmat

more 16 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.

more 16 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
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 3 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 3 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 4 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 11 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 11 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 11 years ago
Random Topic
- runtime error 217
by taruna in Tutorial & Community Project more 16 years ago - gmana ni admin!!
by ichan29 in OOT more 16 years ago - JPEG error #41
by dakocan in Tip n Trik Pemrograman more 17 years ago - Nanya : Indy Exception
by tox2wow in Network, Files, I/O & System more 18 years ago - Soempah Pemoeda
by LuriDarmawan in OOT more 14 years ago - Form dalam Aplikasi MDI
by rho in Form Enhancement & Graphical Controls more 16 years ago - Cara kerja mesin Credit Card yang ada di kasir?
by ZeAL in Hal umum tentang Pascal Indonesia more 17 years ago - Problem load transparansi image PNG
by ivan in Hal umum tentang Pascal Indonesia more 17 years ago - Grayscale code program
by rudy_keren in Enginering more 18 years ago - Master-detail di Fastreport v3
by khairul in Reporting more 15 years ago