Arsip: Rubah CURSOR di MaskEdit ... HELP ...
more 12 years ago
dell-phi
Bgm cara merubah cursor di MaskEdit yang biasanya hanya berupa garis vertikal tipis blink, jadi blok persegi sehingga lebih kelihatan daripada bentuk defaultnya. Karena untuk warna tertentu cursor tidak tampak, sehingga user bingung ini lagi entry field / isian yang mana.
thx b4 :wink: :cry:
more 12 years ago
dell-phi
tidak adakah yang mo memberi pencerahan ... ??? :cry: :cry:
mas2 .. mbak2 .. para pakar delphi ..... plisssssssss .... :(
more 12 years ago
DelphiExpert
Windows menyediakan fungsi CreateCaret dan ShowCaret untuk keperluan tsb. Dokumentasinya bisa dibaca disini http://msdn.microsoft.com/en-us/library/ms648399.aspx
Bentuk custom caret dapat berupa bitmap atau diset berdasar ukuran, contoh:
// Set caret dari bitmap
CreateCaret(EditMask1.Handle, Image1.Picture.Bitmap.Handle, 0, 0); ShowCaret(EditMask1.Handle);
// Set ukuran (ketebalan) caret
CreateCaret(EditMask1.Handle, 0, 10, 4);
ShowCaret(EditMask1.Handle);
Kode dapat dijalankan di event OnEnter atau OnMouseDown milik kontrol
more 12 years ago
dell-phi
@delphiexpert ...
berarti hrs dilakukan di setiap komponen maskedit yg ada di form ybs? dan dilakukan disemua form dalam aplikasi tsb? wuihh ... ribet juga ya @delphiexpert
ada / gak cara dimana kita set di awal aplikasi dijalankan & berlaku disemua form & maskedit yang ada ???
thx a lot ... :roll:
more 12 years ago
DelphiExpert
Ya tinggal di looping aja toh control dalam form, jika ditengarai dia turunan TEdit maka set event-nya misal ke global OnEnter
procedure TForm1.GlobalOnEnter(Sender: TObject);
begin
CreateCarret(TEdit(Sender).Handle ... )
...
end;
procedure SetCarrets(AParent: TWinControl);
begin
for I := 0 to AParent.ControlCount-1 do
if AParent.Controls[I] is TEdit then
TEdit(AParent.Controls[I]).OnEnter := GlobalOnEnter // set OnEnter event
else if AParent.Controls[I] is TWinControl then
SetCarrets(TWinControl(AParent.Controls[I])); // recursive scan sub-parent controls
end;
// penggunaan:
// Form OnShow/OnCreate
SetCarrets(Self);
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
- Re: PERATURAN FORUM Delphi-ID.Org
by EkoIndri in Hal umum tentang Pascal Indonesia more 18 years ago - [ask]Merubah font secara menyeluruh dalam aplikasi
by dr4cul453xy in Network, Files, I/O & System more 17 years ago - program antrian seperti di bank
by diah_intan in Enginering more 16 years ago - Connect MS SQL_Server dengan IP Anddress
by fongers in MsSQL more 13 years ago - cara menampilkan data dengan timer
by alvonz in OOT more 15 years ago - Form Transparan
by mas_kofa in Enginering more 17 years ago - mysql,oracle, interbase atau...database mana yang terbaik?
by ignisce in MySQL more 16 years ago - save file path ???(please urgent)
by bastian in Tip n Trik Pemrograman more 17 years ago - Freereport
by em052007 in Enginering more 16 years ago - extract icon
by bboyz in Tip n Trik Pemrograman more 16 years ago