تشخیص دکمه Enter [بایگانی]

kh1387

یک شنبه 01 دی 1387, 20:21 عصر

با سلام
من می خوام وقتی کاربر کدی رو داخل یک edit وارد کرد و دکمه Enter رو زد، اطلاعاتی رو از بانک SQL server 2005 بازیابی کنه...
اولاً چطوری کد اینتر رو تشخیص بدم؟
ثانیاً بازیابی اطلاعات با استفاده از ADO و ADOTable چگونه است؟
با تشکر از همه مهندسین برنامه نویس

accpascal

یک شنبه 01 دی 1387, 21:44 عصر

دستور زیر کلید Enter را تشخیص می دهد

If key=#13 then
begin
{حهت خاموش کردن صدای بیپ} key:=#0;
{select . . . }
end
جواب سوال قسمت دوم سوال شما در تایپیک های مختلف موجود است لطفا جستجو کنید

kh1387

یک شنبه 01 دی 1387, 21:52 عصر

متشکرم
اما اگه کد راحتی سراغ دارید ممنون می شم بنویسیدش

merced

یک شنبه 01 دی 1387, 22:25 عصر

ديگه از اين راحت‌تر؟

مي توني يه دكمه بذاري و پراپرتي Default اون رو True كني .. كد مد نظرت رو توي رويداد كليك دكمه بذار

سيد مجتبي هاشمي

جمعه 04 بهمن 1387, 14:15 عصر

متشکرم
اما اگه کد راحتی سراغ دارید ممنون می شم بنویسیدش

procedure Tenter.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
if key = char(vk_return) then
begin
if Edit1.Text = '' then
messagedlg('لطفا کد کاربری را وارد نمایید',mtWarning,[mbok],0)
else
begin
Edit2.Enabled := True ;
key:=#0;
postmessage(handle,wm_nextdlgctl,0,0) ;
end;
end;
end;

SYNDROME

شنبه 05 بهمن 1387, 07:45 صبح

از ActionList استفاده کنید.داخل Property آن در قسمت ShortCut کلمه Enter را تایپ کنید.موفق باشید