حرکت با انتر [بایگانی]

Roya Rayane

دوشنبه 29 مرداد 1386, 23:05 عصر

سلام.
می خوام وقتی کد زیر را زدم صدای بیب ندهد.
If key=13 then edit1.setfocus;
با تشکر

babak869

دوشنبه 29 مرداد 1386, 23:19 عصر

از کد زیر میتونید برای رفتن به کنترل بعدی با زدن اینتر استفاده نمایید :

If Key = #13 Then Begin
If HiWord(GetKeyState(VK_SHIFT)) <> 0 then
SelectNext(Sender as TWinControl,False,True)
else
SelectNext(Sender as TWinControl,True,True);
Key := #0
end;

البته اگه جسنجو میکردید حتما پیدا میکردید
موفق باشید

Batman

سه شنبه 30 مرداد 1386, 07:18 صبح

در ادامه صحبتهای سرورم جناب احدی

if key=#13 tehn
key:=#0;

موفق باشید