Ingin membuat editbox yang bisa ratakanan? fungsi merupakan komponen editbox yang ratakanan. Komponen ini diturunkan dari TCustomEdit
unit EditBoxRataKanan; interface uses Messages, Windows, SysUtils, Classes, Controls, Forms, Menus, Graphics; type TRataKananEdit = class( TCustomEdit) private FAlignment : TAlignment; protected procedure CreateParams(var Params : TCreateParams); override; published property Alignment : TAlignment read FAlignment write FAlignment; end; procedure Register; implementation { TRataKananEdit } procedure TRataKananEdit.CreateParams(var Params: TCreateParams); const Alignments : array[TAlignment] of Integer = (ES_LEFT, ES_RIGHT, ES_CENTER); begin inherited CreateParams(Params); with Params do Style := Style AND (NOT 0) OR (ES_MULTILINE) OR (Alignments[FAlignment]); end; procedure Register; begin RegisterComponents('DelphiID', [ TRataKananEdit]); end; end. |
Random Articles
- free barcode component for delphi 4,5,6,7
- Asosiasi Pengembang Software Indonesia, alternatif
- Menampilkan pilihan Item pada Combobox dengan menggunakan keyboard
- Menampilkan nama bulan dalam bahasa Indonesia dalam fungsi "FormatDateTime"
- Menyembunyikan File dengan Gambar Abstrak
- Mengenal PASCALABC.NET
- Meng-Indonesia-kan Message Dlg
- Deteksi Perubahan Modus Video (layar)
- Cara Mudah Assembler di Delphi
- Kill Window Process
Last Articles
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Recent Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago