Arsip: Mohon Pendapatnya

 
user image
more 16 years ago

kunkun

cxPageControl--------------------------------------------------------------------- -------cxTabSheet----------------------------------------------------------------- Frame------------------------------------------------------------------------------ cxTextEdit -------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------- -------------------------------------------------------------------------------------- saya punya component seperti diatas: Yang Mau saya tanyakan adalah: Bagaimana caranya agar saya bisa mengakses cxTextEdit tersebut... Mohon Pendapatnya: Ini Coding saya:

with cxPageControl1, dxStatusBar1 {, ManzControl, Manz } do
  begin
    if (PageCount >= 1) then
    begin
      Panels.Items[2].Text := Pages[ActivePageIndex].Hint;
      if (copy(Panels.Items[2].Text, 1, 1) = 'T') then
      begin
        for i := 0 to Pages[ActivePageIndex].ControlCount - 1 do
          if (Pages[ActivePageIndex].Controls[i] is TFrame) then
          begin
            for j := 0 to TFrame(Pages[ActivePageIndex].Controls[i]).ControlCount - 1 do
              if (TFrame(Pages[ActivePageIndex].Controls[i]).Controls[j] is TcxTextEdit) then
                TcxTextEdit(TFrame(Pages[ActivePageIndex].Controls[i]).Controls[j]).Text := ''
              else if (TFrame(Pages[ActivePageIndex].Controls[i]).Controls[j] is TcxComboBox) then
                TcxCombobox(TFrame(Pages[ActivePageIndex].Controls[i]).Controls[j]).Text := ''
              else if (TFrame(Pages[ActivePageIndex].Controls[i]).Controls[j] is TcxMemo) then
                TcxMemo(TFrame(Pages[ActivePageIndex].Controls[i]).Controls[j]).Lines.Clear
              else if (TFrame(Pages[ActivePageIndex].Controls[i]).Controls[j] is TcxDateEdit) then
                TcxDateEdit(TFrame(Pages[ActivePageIndex].Controls[i]).Controls[j]).Text:=''
              else if (TFrame(Pages[ActivePageIndex].Controls[i]).Controls[j] is TcxLookUpComboBox) then
                TcxDBLookupComboBox(TFrame(Pages[ActivePageIndex].Controls[i]).Controls[j]).Text:=''
          end;
      end
    end;
  end;
Trims sebelumnya
user image
more 16 years ago

yayaretina

lier deh bacanya... pake BBCode dong..
 dan 
user image
more 16 years ago

yayaretina

lhah.. belakang code: [/pas] depan code: [pas]
user image
more 16 years ago

kunkun

anggap aja ga ada coding saya.. tapi gimana cara aksesnya??
user image
more 16 years ago

DelphiExpert

@kunkun: anggap aja ga ada coding saya.. tapi gimana cara aksesnya??
yah... anggap aja ga ada cara aksesnya :oops:
user image
more 16 years ago

kunkun

Trims jawaban nya
user image
more 16 years ago

mas_kofa

Terima Kasih Kembali mas....
user image
more 16 years ago

DelphiExpert


with cxPageControl1, dxStatusBar1, ManzControl, Manz do 
lho koq ada library Manz - nya ya... jangan-jangan... jangan-jangan... :mrgreen:
user image
more 16 years ago

kunkun

sorry mas, saya baru belajar delphi... masih butuh banyak materi... Maaf Kalo mengganggu..
user image
more 16 years ago

DelphiExpert

@kunkun: sorry mas, saya baru belajar delphi... masih butuh banyak materi... Maaf Kalo mengganggu..
udah coba konsultasi ama Manz belum?
more ...
Share to

AI Forward

🚀 We're thrilled to partner with Alibaba Cloud for "AI Forward - Alibaba Cloud Global Developer Summit 2025" in Jakarta! Join us and explore the future of AI. Register now: https://int.alibabacloud.com/m/1000400772/
#AlibabaCloud #DeveloperSummit #Jakarta #AIFORWARD

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