Arsip: rata kanan ?

more 15 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 15 years ago
Lembah_Tidar
Gak ada yang bales ... yah sudah kok repot ..sepi .... hening .... dan hikmat

more 15 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 15 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 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 3 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago
Random Topic
- nanya update SQL statement..pliss
by divanda in Hal umum tentang Pascal Indonesia more 15 years ago - auto increment.....
by nioko in Network, Files, I/O & System more 16 years ago - AUTO REFRESH................
by rykemit in MySQL more 16 years ago - alias error
by comel in Hal umum tentang Pascal Indonesia more 14 years ago - kecepatan rata2 access
by nurez in Hal umum tentang Pascal Indonesia more 16 years ago - Harga Software
by iconfuseme in Enginering more 16 years ago - TButton dikawinkan dengan TShape
by EkoIndri in Tip n Trik Pemrograman more 16 years ago - [tips] Perintah SQL -> LIMIT untuk MS SQL.
by cyber_hecker in MsSQL more 15 years ago - menghitung record dalam perulangan
by idhiel in Hal umum tentang Pascal Indonesia more 10 years ago - Query penjumlahan data and sort Date
by ekopranoto in Lain-lain more 12 years ago