saya punya cara yang lebih singkat seperti dibawah ini
jadi cek iven onkeypress cukup pada form tidak perlu
pada semua edit yg ada dan hasilnya jika kita menekan
tombol enter maka akan dianggap seperti tombol tab.
focus control akan dipindahkan ke komponen berikutnya
sesuai urutan tag yang ada
silahkan dicoba seperti dibawah ini
procedure Tform1.FormCreate(Sender: TObject);
begin
keyPreview := true;
end;
procedure Tform1.FormKeyPress(Sender: TObject; var
Key: Char);
begin
if Key = #13 then
begin
Key := #0;
PostMessage(Handle, WM_NEXTDLGCTL, 0, 0);
end;
end;
salam
edy sutrisno
--- "Agustono Gotama <[EMAIL PROTECTED]>"
<[EMAIL PROTECTED]> wrote:
> CARA 1:
> -------
>
> Kasih sebuah Button, set property Default=TRUE.
> Kalau di Editbox Anda menekan Enter, maka secara
> otomatis button
> tersebut ter-click. Nah.. lakukan sesuatu di event
> OnClick dari
> button tsb.
>
> CARA 2 (seperti cara Squid):
> ----------------------------
>
> Set property Form.KeyPreview = TRUE.
> Lalu tulis code di event Form.OnKeyPress sbb:
>
> procedure TForm1.FormKeyPress(Sender: Object; var
> Key: Char);
> begin
> if Key=#13 then // 13 adalan No ASCII Enter
> begin
> ...
> end;
> end;
>
> Jadi nggak usah dicheck di setiap Editboxnya.
>
>
> --- In [EMAIL PROTECTED], "Squid"
> <[EMAIL PROTECTED]> wrote:
> > Pada event OnKeyDown dari masing-masing TEdit
> definisikan event
> handler sbb.
> >
> > begin
> > case Key of
> > vk_Return :
> > begin
> > // apa saja yang ingin dilakukan kalo
> Enter ditekan
> > end;
> > end;
> > end;
> >
> > keterangan:
> > - Key adalah parameter yang diterima oleh event
> handler OnKeyDown
> (bisa
> > dipelajari lebih lanjut pada online help)
> > - vk_Return adalah definisi virtual key Windows
> untuk tombol enter.
> Untuk
> > lebih jelasnya dapat dilihat di help SDK Windows
> yang ikut di-
> install
> > bersama Delphi.
> > - Tombol Shift, Ctrl, dan Alt, dapat diperiksa
> statusnya lewat
> parameter
> > Shift (baca online help untuk penggunaannya)
> >
> > HTH,
> > Sintar.
> >
> > ================
> >
> > ----- Original Message -----
> > From: "Siswanto" <[EMAIL PROTECTED]>
> > To: <[EMAIL PROTECTED]>
> > Sent: Saturday, 15 February 2003 8:32 AM
> > Subject: [Delphindo] Mengaktifkan Enter
> >
> >
> > > Pa' Edy , Pa Sintar dan semua
> > >
> > > Bagaimana caranya mengaktifkan enter dalam
> sebuah form input ,
> edit data
> > krn yang aktif ternyata hanya tab aja
> > >
> > > Mohon pencerahan untuk langkah2nya
> > >
> > > Thanks & Brgds,
> > > Siswanto
>
>
__________________________________________________
Do you Yahoo!?
Yahoo! Shopping - Send Flowers for Valentine's Day
http://shopping.yahoo.com
------------------------ Yahoo! Groups Sponsor ---------------------~-->
Get 128 Bit SSL Encryption!
http://us.click.yahoo.com/FpY02D/vN2EAA/xGHJAA/i7folB/TM
---------------------------------------------------------------------~->
Berlangganan: [EMAIL PROTECTED]
Stop Berlangganan: [EMAIL PROTECTED]
Keluhan Milis(Unbouncing,spam,dll): [EMAIL PROTECTED]
Your use of Yahoo! Groups is subject to http://docs.yahoo.com/info/terms/
