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

more 14 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 14 years ago
danieljun
mas_kofa bukannya udah jago hal2 ginian ?
biasa kan pakai FindWindow / FindwindowEx ... nambah ribet . gampangan bikin ulang kali ?

more 14 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 1 years ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 1 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 1 years ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 2 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 9 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 9 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago
Random Topic
- mengirim variabel delphi ke variabel fastreport script
by delphi_pitu in Reporting more 10 years ago - mohon perhatiannya sebentar
by shadri in OOT more 14 years ago - send data paralalel ke Adotabel
by kakaManiez in Enginering more 15 years ago - Menyeleksi Transaksi untuk laporan
by adixp in Tutorial & Community Project more 14 years ago - Select like dari Query
by riagil in MySQL more 10 years ago - jadikan delphi-id komunitas yg bermoral
by simba in Hal umum tentang Pascal Indonesia more 15 years ago - exe generate file .INI
by de27de in Hal umum tentang Pascal Indonesia more 13 years ago - enkrip dan dekrip teks
by CurutZ in Tip n Trik Pemrograman more 14 years ago - TDE hotfix mencegah dll expert?
by simba in Delphi.NET more 15 years ago - Komponen Oxygen
by IdrisZZ in Tip n Trik Pemrograman more 13 years ago