PDA

View Full Version : کمک-برداشتن صدای بیپ در زمان اینتر کردن


maisam57
جمعه 29 مهر 1384, 01:54 صبح
با سلام
من توی dbedit و توی رویداد onkeydown از کلید اینتر استفاده کردم

ok key=vk_return then dbedit2.setfocus;
ولی هر بار که اینتر میکنم صدای بیپ میده چکار باید کرد
ممنون از راهنمایی شما
vcldeveloper
جمعه 29 مهر 1384, 03:05 صبح
if Key = vk_Return then
begin
Key := #0;
dbEdit2.SetFocus;
end;
دنی کوئیل
پنج شنبه 08 دی 1384, 13:00 عصر
شما بهتره خاصیت KeyPreview فرم را به True ست نمائید

بعد کد زیر را بنویسید




procedure TForm1.OnKeyPress(Sender: TObject; var Key: Char);
begin

if key=#13 then
Perform(CM_DIALOGKEY,VK_TAB,0) ;

end;
دنی کوئیل
پنج شنبه 08 دی 1384, 13:44 عصر
شما بهتره خاصیت KeyPreview فرم را به True ست نمائید

بعد کد زیر را بنویسید




procedure TForm1.OnKeyPress(Sender: TObject; var Key: Char);
begin

if key=#13 then
Perform(CM_DIALOGKEY,VK_TAB,0) ;

end;




حالا واسه اینکه کد من بیب نزنه باید چی کار کرد ؟
vcldeveloper
جمعه 09 دی 1384, 03:03 صبح
حالا واسه اینکه کد من بیب نزنه باید چی کار کرد ؟
Key := #0
---------------------
دنی کوئیل
جمعه 09 دی 1384, 10:25 صبح
آفرین آقای کشاورز