Arsip: set property komponen saat runtime?
more 13 years ago
ianhade
temen2 mau minta bantuannya lg,
misal sy create komponen TEdit pd saat runtime. Setiap nge-create, nama komponennya disimpan di database(Edit1,Edit2,Edit3..dst).
jd setiap form muncul(onshow) komponen didalam di database td ditampilkan(di create). pertanyaannya, gmana cara agar setiap komponen yg sudah di create/muncul bs sy set property nya pd saat runtime?
more 13 years ago
DelphiExpert
Yang pasti property yang diinginkan harus disimpan di suatu tempat dengan suatu format / cara.
- Cara paling mudah adalah menyimpan property2 yg diinginkan dalam format IniFile (simpan dalam DB/Table dengan field-type BLOB).
IniFile.WriteString('Edit1', 'Text', Edit1.Text);
...
- Cara dinamis lainnya adalah memanfaatkan RTTI (google please), simpan dalam DB/Table dengan field-type BLOB)
more 13 years ago
ianhade
Yg sy bingung pd saat memanggil/menulis "Edit1.Text" karna tdk dikenali oleh delphi. Dan pd saat design code tidak ada komponen vcl apapun, karna semua jenis/nama komponen diambil dr database saat runtime. Jd klo sy tulis
IniFile.WriteString('Edit1', 'Text', Edit1.Text);
mungkin tdk bs jalan karna hal td (komponen edit1 tidak dikenali pd saat design code). CMIIW.
ini contoh filenya ato source code nya :
contoh.7z
procedure TForm1.FormShow(Sender: TObject);
var
edt:TEdit;
begin
with ADOQuery1 do
begin
Close;
SQL.Text:='SELECT * FROM komponen';
Open;
First;
while not eof do
begin
edt:= TEdit.Create(form1);
with edt do
begin
name:=FieldByName('nama').AsString;
Text:=FieldByName('nama').AsString;
Visible:=True;
Left:=FieldByName('x').AsInteger;
Top:=FieldByName('y').AsInteger;
Parent:=Form1;
end;
Next;
end;
end;
end;
Yang sy inginkan mengubah teks pd Edit1 pada saat tombol di klik.
untuk yang RTTI msh sy pelajari dulu, tp klo ada solusi yg lebih simple mohon dibantu ya kk.
trima kasih.
more 13 years ago
DelphiExpert
Edit1 satu itu object yang mana? Edit1 = edt:TEdit; ? atau Edit1 = Sudah tersedia di form?
more 13 years ago
ianhade
Edit1 dicreate oleh edt:TEdit saat aplikasi dijalankan, Edit1 tidak ada di form pd saat design code, jd hanya muncul pd saat runtime.
maaf klo pertanyaannya kurang jelas.
more 13 years ago
iwancs
Jangan pake Edit1, karena Edit1 tidak pernah ada di runtime maupun di design time, untuk bisa menset property text dari komponen edit yang sudah dicreate, bisa pake cara berikut:
procedure SetText(AName: string;AValue: string);
var
cmpTemp : TComponent;
begin
cmpTemp := FindComponent(AName);
if (cmpTemp <> nil) and (cmpTemp is TEdit) then
begin
TEdit(cmpTemp).Text := AValue;
end;
end;
Dicoba dulu yee,
Iwan
more 13 years ago
ianhade
terima kasih banyak mas iwan......udah bisa, code nya berfungsi dgn baik.
thx juga buat DelphiExpert yg udah bantu cari solusi.
skalian mo ngucapin, Marhaban Yaa Ramadhan...
Selamat menjalankan ibadah puasa...
Mohon maaf lahir & batin ....
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
- Menghitung nominal tiap beberapa menit (like billing)
by kaito_kid in Bedah Kasus more 13 years ago - copy banyak data dari table a ke table b, beda strukture
by fira in MySQL more 15 years ago - component Timage dan Lineto
by wati in Tip n Trik Pemrograman more 12 years ago - coding tuk......kirim key (keyboard) ke sistem windows.....
by mas_kofa in Hal umum tentang Pascal Indonesia more 17 years ago - Refresh semua aplikasi apabila ada perubahan di database
by irfan_nh in Network, Files, I/O & System more 14 years ago - syntax SQL
by ags606 in Hal umum tentang Pascal Indonesia more 17 years ago - Insert Semicolon ke mysql?
by ZeAL in MySQL more 16 years ago - MessageDlg????
by akudana in Hal umum tentang Pascal Indonesia more 14 years ago - script untuk button dari image
by Charles in OOT more 16 years ago - Import file excel dengan format date ke access
by msih_bljaran in Lain-lain more 14 years ago