Mengisi item combobox dengan Tanggal Bulan atau Tahun di delphi. mungkin adakalanya kita ingin membuat tanggal manual (maksudnya tidak pakai Datetimepecker) dan dipisah-pisah menggunakan atau disimpan dicombobox. sedikit saya share tentang bagaimana coding agar tanggal bulan atau tahun di masukan kedalam combobox secara otomatis.
بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم
Bagaimana membuat huruf awal pada EditBox didelphi. ini lah codingnya.
-Buat Prosedure
procedure HurufAwalBesar(sender:TObject);
var
Perubahan : TNotifyEvent; //mengeset variabel yang dibutuhkan
Awal: Integer;
begin
with (Sender as TEdit) do
begin
Perubahan := OnChange; //assign var sebelumUp seperti onChange
OnChange := nil;
Awal := SelStart;
if ((SelStart > 0) and (Text[SelStart - 1] = ' ')) or (SelStart = 1) then
begin
SelStart := SelStart - 1;
SelLength := 1;
//menjadikan karakter pertama menjadi upperCase
SelText := AnsiUpperCase (SelText);
end;
OnChange := Perubahan;
SelStart := Awal;
end;
end;
-Penggunaannya,simpan pada event OnChange di EditBox
procedure TForm1.Edit1Change(Sender: TObject);
begin
HurufAwalBesar(Sender);
end;
Sekian dan Terima kasih..
Labels:
Delphi
بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم
Menjadi kan item atau isi pada combobox menjadi dua (2) baris , bagar mana caranya ? Pertama pada Properties ComboBox rubah Stylenya=csOwnerDrawVariable.
Labels:
Delphi
بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم
Menampilkan gambar di Cell DBGRID. Ini merupakan salah satu cara bagaimana kita ingin menampilkan sebuah gambar pada DBGRID,disini saya memberikan contohnya yaitu dimana Jika Status Lunas=True maka tampilkan gambar SENYUM dan jika False maka tampikan gambar Seperti orang MARAH..
Lihat contoh screenshot dibawah ini :
Labels:
Delphi
Subscribe to:
Posts (Atom)