Arsip: rata kanan ?

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

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

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.

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
more ...
- Pages:
- 1
reply |
Report Obsolete
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
Last Articles
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 5 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 12 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 12 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 12 years ago
Random Topic
- mengetahui perubahan dari database
by lithium in Paradox more 17 years ago - kritik soal artikel nih
by agusmade in Kritik & Saran more 19 years ago - gimana bikin format 001 di fast report 3.xx
by oloan_ac in Reporting more 16 years ago - Mohon bantuan teman2
by grounders in Hal umum tentang Pascal Indonesia more 19 years ago - Setting Tgl Untuk SQL Pada Sintax DiDelphi
by umarbakri in Hal umum tentang Pascal Indonesia more 18 years ago - Buat Zquery di Program
by goehsatrio in MySQL more 16 years ago - satu masalah selesai, muncul masalah fast report yang lain
by radhutz in Reporting more 15 years ago - pemanggilan frame
by andtho89 in Form Enhancement & Graphical Controls more 12 years ago - Hapus record dalam dua table yang berlainan sekaligus
by hafiezd in Tip n Trik Pemrograman more 15 years ago - Orang Indonesia mau ke Roma
by lord_kimm in OOT more 18 years ago