Arsip: virtual key

more 16 years ago
ags606
hallo all, langsung aja
aku buat program album foto, yang tak masukin di DB (accsess) yang tak mau tanyakan gimana caranya biar foto yang ada di DB bisa dari 0 sampe n record, aku pake perintah if (key=vk_left) then adotable1.next tapi enggak mau, aku pake komponent DBImage.
mohon pencerahannya

more 16 years ago
kaka-delphi
Wiikkk ... masa sich ... , coba property KeyPreview Form di aktifkan
KeyPreview:= true;

more 16 years ago
kaka-delphi
Ato coba pake komponen 'ApplicationEvents' yang ada di palet 'Additional'
Pada event OnMessage, tulis skrip berikut :
procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
// tangkap message penekanan keyboard dari nonsystem key
if Msg.message = WM_KEYDOWN then
// tangkap virtual-key code
case Msg.wParam of
VK_LEFT: Table1.Prior;
VK_RIGHT: Table1.Next;
end;
end;

more 16 years ago
kaka-delphi
Ups ... double post ...
http://pascal-id.org/dpr/index.php?name=PNphpBB2&file=viewtopic&p=8314#8319
http://pascal-id.org/dpr/index.php?name=PNphpBB2&file=viewtopic&p=8314#8320

more 16 years ago
Budiadi
@kaka_delphi :
Aku juga punya masalah mirip2, aku pake komponen dbgrid n mau kalau kita tekan tombol delete itu menghapus satu record di tabel, gimana cara cegat key Del pada event onkeypress?, tks sebelumnya :-)

more 16 years ago
kaka-delphi
Ya ... gampang aja ...
Tinggal masukkan aja fungsi untuk menghapus satu record tersebut di event KeyPress DBGrid. Misal :
procedure TForm1.DBGrid1KeyPress(Sender: TObject; var Key: Char);
begin
if (Key=chr(VK_DELETE)) then
HapusSatuRecord
end;
Hal yang sama pula bisa dilakukan pada event KeyDown :
procedure TForm1.DBGrid1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if (Key=VK_DELETE) then
HapusSatuRecord
end;

more 16 years ago
Budiadi
dah masukin kode :
If (Key = Chr(Vk_delete)) Then HapusSatu Record
hanya berfungsi untuk tombol yang ada di keypad saja tapi tidak yang untuk tombol delete yang satunya lagi (yang ada diatas direction key, ngumpul 6 biji [Insert, Home,PageUp,Delete,End,PageDown] pada keyboard standard 104 keys), gimana ya kalau kita mau kedua tombol delete itu mempunyai fungsi yang sama?
Mohon pencerahannya lagi kaka-delphi :D
more ...
- Pages:
- 1
- 2
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 2 years ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 2 years ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 2 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 10 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 10 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 10 years ago
Random Topic
- Where yang meliputi stu column,.
by sudrun in Lain-lain more 14 years ago - kiim file text ke database
by jajang in Hal umum tentang Pascal Indonesia more 13 years ago - tanya ngatur ukuran kertas buat double folio
by budhie_yk in Reporting more 14 years ago - Masalah dengan fungsi YearOf
by Random in Hal umum tentang Pascal Indonesia more 15 years ago - ada yang pernah pake ISO buat transaksi ATM
by alvonz in Enginering more 14 years ago - Bagaimana Cara Membuat File .Ini
by babypigs in Bedah Kasus more 15 years ago - gimana cara nampilin angka nol didepan
by putukaca in onLinux more 16 years ago - Masukin nilai array ke chart
by RoenZ in Hal umum tentang Pascal Indonesia more 15 years ago - Open ID
by saysansay in OOT more 14 years ago - zeos connection u fastreport
by jonathan_giuliano in Reporting more 13 years ago