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:

tidak adakah yang mo memberi pencerahan ... ??? :cry: :cry: mas2 .. mbak2 .. para pakar delphi ..... plisssssssss .... :(

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

@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:

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);