Arsip: Ttg componentcount ?

 
user image
more 12 years ago

debby

Ini pernah dibahas , tapi saya belum tahu betul. pernah saya praktekkan malah eror. Misal : aku letakkan 2 groupbox dlm form, masing2 groupbox itu ada beberapa tedit. Bagaimana groupbox1 terisi nilai 0 semua teditnya, sedangkan groupbox2 tidak terisi (kosong atau :=' '). saya pake code tsb dibawah ini : for i := 0 to ComponentCount -1 do if components[i] is TEdit then TEdit(components[i]).Text := ''; Tolong tambahin codenya mana yang kurang ? Thx
user image
more 12 years ago

danieljun

Untuk kilik2 bagian dari GroupBox pakai property Controls

for i := 0 to GroupBox1.ControlCount  -1 do
  if GroupBox1.Controls[i] is TEdit then
    TEdit(GroupBox1.Controls[i]).Text := '0';
for i := 0 to GroupBox2.ControlCount -1 do
  if GroupBox2.Controls[i] is TEdit then
    TEdit(GroupBox2.Controls[i]).Text := '';
referensi lengkap ada di Help
user image
more 12 years ago

debby

Terima kasih bozz...... udah saya praktekkan dan berhasil. Pusingku udah terobati.....
user image
more 12 years ago

DelphiExpert

property Components adalah milik TWinControl. artinya, tiap komponen yg diturunkan dari TWinControl mempunyai property tsb, dengan kata lain; masing2 component/control letaknya adalah relative terhadap parent-nya (TWinControl). Eits... tidak semua TWinControl accepts controls... tergantung flags pd constructor params. dan ingat, apabilan anda tidak menyertakan nama-parent component yg dimaksud otomatis anda meng-akses semua component milik TForm tetapi masih dalam 1 root level, childs tetap di hold oleh sub parent dalam form (TPanel, TGroupBox dll) (jika saat itu dikau coding dalam sebuah form). sebagai contoh untuk meng-akses TEdit yg ada dalam TGroupBox, anda harus menggunakan ComponentCount / Components dari si Parent-nya TEdit; yakni TGroupBox. Perlu diingat TWinControl mempunyai 2 jenis list utk menampung daftar child-components/controls. yakni Components - ComponentCount dan Controls - ControlCount masing2 menyimpan component/control sesuai dng makna dari nama property tsb. Components mengandung semua component yg ada pd sebuah TWinControl descendants, baik yg berupa Visual (TControl descendants) maupun yg non-visual (TComponent descendants), sedangkan Controls khusus menampung semua component yg bersifat visual (TControl descendants). dengan demikian, utk mengakses visual component (TEdit, TComboBox, TImage dll) lebih tepat jika menggunakan Controls. berikut contoh meng-akses childs (TEdit) pada GroupBox1.

for I:= 0 to GroupBox1.ControlCount - 1 do
  if GroupBox1.Controls[I] is TEdit then
    TEdit(GroupBox1.Controls[I]).Text:= '';
user image
more 12 years ago

debby

Makasih ilmunya .. bang delphiexpert, memang forum ini perlu bagi saya, daripada baca buku cuman sebatas umum saja.
user image
more 12 years ago

zieborg

hmm yet another enlightenment.. :D
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com