PDA

View Full Version : فعال کردن edit خاص برای تایپ


amirtofighi
شنبه 17 تیر 1391, 23:26 عصر
سلام
فرض کنید تو فرممون چندتا edit داریم
میخوام کاری کنم که با زدن مثلا یه دکمه ،edit شماره 2 بدون اینه کاربر روش کلیک کنه یا با دکمه tab روش بره، بصورت اتومات آماده دریافت text کاربر بشه
با تشکر
بهروز عباسی
یک شنبه 18 تیر 1391, 00:23 صبح
درود
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.SetFocus;
end;

موفق باشید.
amirtofighi
پنج شنبه 22 تیر 1391, 10:27 صبح
ببخشید یه سوال دیگه هم داشتم:
شما روش فعال کردن ادیت رو گفتین ،میشه لطف کنید اینم بگین ک چطور میشه تو شکل پایین با زدن دکمه تایید بالا،علاوه براینکه ادیت فعال میشه ,بطور همزمان اینها هم فعال بشه:


اگه کلیدهای جهت بالا و پایین رو فشار بدیم،تو رکورد های dbgrid بالا و پایین بریم
وقتی enter بزنیم دکمه نشون داده شده عمل کنه

مرسی بازم از راهنماییتون
89568
ahmadbh
شنبه 24 تیر 1391, 10:16 صبح
با سلام
میتونی با دو بار کلیک روی DBGRad این کار انجام بدهید
amirtofighi
شنبه 24 تیر 1391, 16:56 عصر
ولی من نمیخوام کاربر از موس استفاده کنه
یعنی وقتی دکمه تایید رو زد دیگه بقیه کاراش با کیبورد باشه
مثلا وقتی اسم رو جستجو کردیم بدون اینکه با موس بخوایم روی dbgrig کلیک کنیم و بین رکوردها بالا و پایین بریم، دکمه های بالا و پایین کیبورد بعد از زدن دکمه تایید بطور خودکار رکوردها رو بالا و پایین ببرن
نمیدونم منظورم رو تونستم برسونم یا نه؟
عقاب سیاه
شنبه 24 تیر 1391, 19:27 عصر
اگه با جستجو مشکل نداری با همون روش قبلی امکان پذیره دیگه:
DBGrid1.SetFocus;
SayeyeZohor
شنبه 24 تیر 1391, 20:00 عصر
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
IF Key = VK_UP THEN MSTable1.Prior;
IF Key = VK_DOWN THEN MSTable1.Next;
end;