Arsip: Akses Component TEdit, TMemo, dll dr aplikasi lain......

more 16 years ago
mas_kofa
aku punya prog lama (yang masih saya jalankan ampe skrg) dr delphi juga...and source dah ilang and nama2 komponen yang ada apa aplikasi juga dah lupa.......
kalo u/ mbangun ulang prog tsb kelamaan......
masalah nya adlh..... aku ingin membuat prog yang memanfaatkan isi property dr komponen prog diatas....seperti TEdit, Memo, dll .....
gmn cara mengambil nilai atau memberi nilai pada komponent tersebut ????
S'moga pertanyaan tdk membingungkan............

more 16 years ago
danieljun
mas_kofa bukannya udah jago hal2 ginian ?
biasa kan pakai FindWindow / FindwindowEx ... nambah ribet . gampangan bikin ulang kali ?

more 16 years ago
mat_koder
Klo untuk baca property dari TEDIT/TMEMO sebagai sebuah objek Delphi (baca semua published property) saya rasa ngga bisa dari luar aplikasi tsb. Namun untuk membaca isi TEdit/TMemo sebagai sebuah "native Win32 control" bisa dilakukan.
(Tedit/Tmemo adalah "wrapper control" dari Win32 control bukan? -> artinya Delhi ngga nge-paint langsung teks ke Canvasnya si control tsb).
contoh untuk baca isi TEdit/TMemo:
var
hWindow : THandle;
hChild : THandle;
buffer : array of Char;
sClassName : String;
begin
Result := '';
// cari form induk
hWindow := FindWindow(......));
if hWindow = 0 then begin
ShowMessage('Form induk yg berisi TEdit ngga ditemukan');
exit;
end;
// periksa semua child control dari form induk apa ada yg berupa edit control ( TEdit/TMemo)
hChild := GetWindow(hWindow, GW_CHILD);
while hChild <> 0 do Begin
if GetClassName(hChild, buffer, SizeOf(buffer)) > 0 then
begin
sClassName := StrPas(buffer);
if sClassName = 'Edit' then
begin
SendMessage(hChild,WM_GETTEXT,SizeOf(buffer),Integer(@buffer));
Result := StrPas(buffer);
end;
end;
hChild := GetWindow(hChild, GW_HWNDNEXT);
end;
end;
untuk RichEdit based , gunakan EM_GETLINE message
dulu saya pernah gunain kode spt diatas, ada segelintir program laen yg ngga bisa dibaca isinya. Mayoritas bisa - saya ngga tau mengapa.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 2 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 2 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 3 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
- Search File Yang Memiliki Format
by xproof in Tip n Trik Pemrograman more 14 years ago - chart, quick report
by noo_r1r1n in Reporting more 12 years ago - tampilkan nama alias dalam quickreport
by ricky_seldjatem in MsSQL more 14 years ago - bagaimana menunjuk row terakhir stlah di refresh pd dbgrid ?
by aandrie77 in Lain-lain more 12 years ago - buka aplikasi delphi lewat web
by farhan_port in Hal umum tentang Pascal Indonesia more 16 years ago - tipe tform jadi convert ke string??
by imunk in Delphi.NET more 17 years ago - info MyBackup
by jayadi888 in Network, Files, I/O & System more 17 years ago - Tabel untuk penyimpanan sementara
by desi in Delphi.NET more 14 years ago - String
by belajaraja in MySQL more 16 years ago - How to enable/disable LAN from delphi
by j14n6 in Hal umum tentang Pascal Indonesia more 17 years ago